Написать программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен 0) и определяется наименьшее из введенных чисел.(Делать всё в паскаль)

pascal

program minimum;

var

 min, i:  integer;

begin

 repeat

   Write('Ведите число (для окончания 0): ');

   ReadLn(i);

   if ((i <= min) or (min = 0)) and (i <> 0) then min := i;

 until i = 0;

 WriteLn('Минимальное из введенных чисел = ', min);

end.