Определить порядковый номер и величину наибольшего среди отрицательных чисел этой последовательности - Pascal

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

Дана непустая последовательность различных целых чисел, за которой следует нуль. Определить порядковый номер и величину наибольшего среди отрицательных чисел этой последовательности.

Решение задачи: «Определить порядковый номер и величину наибольшего среди отрицательных чисел этой последовательности»

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

var
  n, i, k, m: integer;
begin
  m:=-MaxInt-1;
  repeat
    Read(n); inc(i);
    if (n<0) and (n>m) then begin
      m:=n; k:=i;
    end;
  until n=0;
  WriteLn('Максимальное отрицательное: ',m,' в позиции ',k);
end.

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

Объявлены четыре переменные: n, i, k, m типа integer.
Значение переменной m устанавливается на -MaxInt-1.
В цикле while происходит считывание чисел с помощью функции Read(n).
Переменная i увеличивается на единицу после каждой итерации цикла.
Если число n отрицательно и больше, чем значение переменной m, то значение переменной m обновляется на n, а переменная k получает значение i.
Цикл продолжается до тех пор, пока не будет считано число n равное нулю.
С помощью функции WriteLn выводится сообщение с максимальным отрицательным числом m и его позицией k.