Написать программу определения минимального из введённых n чисел. паскаль, цикл-for. !

program Comparison;

var

N, i, num, min:integer;

begin

write('Введите количество чисел: ');

readln(N);

write('Введите число: ');

readln(num);

min:=num;

for i:= 1 to (N-1) do

begin

readln(num);

if (num<min) then min:=num;

end;

writeln('Минимальное число в последовательности: ',min);

end.