помогите написать программу на паскале нахождение минимального числа из 20 введенных чисел

var
v, c, m: integer;
begin
m := maxint;
writeln('введите 20 чисел: ');
for c := 1 to 20 do
begin
readln(v);
if v < m then m := v;
end;
writeln('минимальное из введенных чисел: ', m);
end.