Составить программку которая дозволяет найти меньший элемент нечаянно сформированного

Easy
const
n=10;
r=99;
var
i:integer;
min:integer;
m:array[1..n] of integer;
begin
randomize;
min:=maxint; //Или intmax
for i:=1 to n do
begin
m[i]:=random(99)+1; //наполняем нечаянно от 1 до 99
write(m[i],' ');
end;
writeln;
for i:=1 to n do if mingt;m[i] then min:=m[i];
write(min);
end.