Написать программу нахождения минимального из N чисел в Pascal

var n,i,m,a: integer;
begin
write('Введите количество чисел (N): ');
readln(n);
write('Введите число: ');
readln(a);
m:=a;
for i := 1 to n-1 do
begin
write('Введите число: ');
readln(a);
if a<m then m:=a
end;
writeln('Минимальное число в последовательности: ',m)
end.