Написать программку определения малого из введённых 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 (numlt;min) then min:=num;

end;

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

end.