Упростить программу - Pascal ABC (16484)

Формулировка задачи:

В программе надо убрать/заменить repeat, упростить программу. Pascal ABC.

uses crt;
var k,mn,n,imn:integer;
begin clrscr;
writeln('Введите натуральные числа, окончание ввода 0:');
repeat
readln(mn);
until mn>0;
n:=1; imn:=1;
repeat
 repeat
readln(k);
until k>=0;
n:=n+1;
if(k<>0)and(k>mn) then
begin
mn:=k; imn:=n;
end;
until k=0;
write('Наибольшее из чисел: ',  mn,', его номер ',imn);
readln
end.

Решение задачи: «Упростить программу»

Листинг программы

var k,mx,n,imx:integer;
begin
writeln('Введите натуральные числа, первое число не 0, окончание ввода 0:');
readln(k);
mx:=k;
n:=1;
imx:=1;
while k<>0 do
 begin
  readln(k);
  n:=n+1;
  if(k<>0)and(k>mx) then
   begin
    mx:=k;
    imx:=n;
   end;
 end;
write('Наибольшее из чисел: ',  mx,', его номер ',imx);
end.

Объяснение кода листинга программы

Создается переменная k типа integer, которая будет использоваться для считывания вводимых чисел.
Создается переменная mx типа integer, которая будет хранить наибольшее из чисел.
Создается переменная n типа integer, которая будет хранить количество чисел, введенных пользователем.
Создается переменная imx типа integer, которая будет хранить номер наибольшего числа.
Выводится сообщение с просьбой ввести натуральные числа, первое число не 0, окончание ввода 0:.
Считывается первое число от пользователя и присваивается переменной k.
Переменные mx и n инициализируются значением k.
Запускается цикл while, который будет выполняться до тех пор, пока k не станет равным 0.
В цикле считывается следующее число от пользователя и присваивается переменной k.
Переменная n увеличивается на 1.
Проверяется условие: если k не равно 0 и больше mx, то значения mx и imx обновляются.
После выполнения цикла выводится сообщение с наибольшим числом и его номером.