Выбрать наименьшее значение из 20 чисел вводимых с клавиатуры. Программа в Паскале

Var i, min, num: integer; begin readln(min); for i := 1 to 19 do   begin     readln(num);     if (num < min) then       min := num;   end; writeln(num); end.