Паскаль, найти самого низкого​

Const n=7;

Var min, i:integer ;

A :array [1..200]of Integer ;

Begin

For i:=1 to N do begin

A[i]:=random(51)+150;

Writeln(' Рост', 'i', ': ', a[i]);

End;

Min:=a[1];

For i:=1 to n do begin

If(a[i]<min) then min:=a[i];

End;

Writeln (' Рост самого низкого: ', min) ;

End.