[TheVenom]

Если использовать:

Код:

  while True do
  begin
    ...
    if z1 = 0 then Break;
  end;

То выводится ошибка ввода, а если использовать:

Код:

  repeat
    ...
    if z1 = 0 then Break;
  until True;

то все происходит так же, как и без repeat\until т.е. программа находит минимум только 1 раз.