Найти max и min роста всех учеников 10 классе 7 человек

Программа присваивает ученикам случайное значение роста в диапазоне от 160 до 180 см.

Program n1;
Uses CRT;
Const n=7;
Var A: array[1..n] of integer;
i,min,max: integer;
begin
randomize;
ClrScr;
Writeln('Rost vseh ychashihsa');
max:=0;
For i:=1 to n do
begin
a[i]:=random(20);
a[i]:=a[i]+160;
write(a[i]:4);
If a[i]>max then max:=a[i];
end;
min:=max;
For i:=1 to n do
If a[i]<min then min:=a[i];
writeln;
Writeln('Max=',max,', min=',min);
readln
end.