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

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