Кто поможет расставить комментарии к коду pascal часть 2?

Question

[d4Rk_ag3Nt]

Первая контрольная, пока не особо понимаю, проги тоже первые. Программы написал, работать вроде работают, объяснить не в состоянии)) Помогите с комментариями к следующим кодам:
2.
Const
nn=50;
type
data = record
number : 1..31;
month : 1..12;
year : 1901..1997
end;
var
d:array[1..nn] of data;
i,n,k:integer;
s,s1,s2,s3:string;
begin
Write('Количество дат (1..50)-> '); Read(n);
Writeln('Введите через пробел день, месяц, год: ');
for i:=1 to n do Read(d[i].number,d[i].month,d[i].year);
{ a }
Write('Самый ранний из годов: ');
k:=d[1].year;
for i:=2 to n do
if d[i].year