Помогите пожалуйста!Паскаль ABC Составьте программу, определяющую минимальное из всех...

Вот программа, которая определяет минимальный элемент из чисел n. Предусловие делать ?
Program asd;
USES crt;
varA:array [1..99] of integer;
i,j,n,min:integer;
BEGIN
Clrscr;
Writeln('Vvedite ramsernost chisel: ');
Readln(n);
For i:=1 to n do
begin
A[i]:=random(10);
Write(' ',A[i]); end;
min:=A[1];
for i:=1 to n do
begin
if a[i]<=min then min:=a[i];<br>end;
Writeln;
Writeln('Min: ',min);
END.