Дано n чисел найдите малое из их. СрочноООО пожалуйста!!!

Var n,min,i:integer;    chisl :array[1..1000]of integer;begin    randomize;    min:=1000;    Writeln('vvedity n='); readln(n);    for i:=1 to n do begin    chisl[i]:=random(1000); writeln(chisl[i]);    end;    for i:=1 to n do begin    if chisl[i]lt;min then min:=chisl[i];    end;    Writeln('Minimum=',min);end.