Запомнить элемент - Pascal ABC

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

Цикл с условием, вводятся числа, до тех пор пока не будет введен 0, каким по счету был введен максимальный и минимальный элемент.

Решение задачи: «Запомнить элемент»

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

var
a, i, k, max, min, z:integer;
begin
writeln('Введите число');
read(a);
max:=a;
min:=a;
z:=1;
i:=1;
k:=1;
while a<>0 do
    begin
    writeln('Введите число');
    read(a);
    inc(i);
    if a > max then
        begin
        max:=a;
        k:=i;
        end;
    if a < min then
        begin
        min:=a;
        z:=i;
        end;
    end;
writeln('номер минимального элемента: ',z,'Номер максимального элемента ',k);
end.

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

Создается переменная a типа integer, которая будет использоваться для чтения введенного числа.
Создается переменная max типа integer и присваивается значение a. Эта переменная будет использоваться для хранения максимального числа.
Создается переменная min типа integer и присваивается значение a. Эта переменная будет использоваться для хранения минимального числа.
Создается переменная z типа integer и присваивается значение 1. Эта переменная будет использоваться для отслеживания номера минимального элемента.
Создается переменная i типа integer и присваивается значение 1. Эта переменная будет использоваться для отслеживания номера текущего элемента.
Создается переменная k типа integer и присваивается значение 1. Эта переменная будет использоваться для отслеживания номера максимального элемента.
В цикле while выполняется следующая последовательность действий:
- Выводится сообщение 'Введите число'.
- Число считывается из стандартного ввода и сохраняется в переменной a.
- Переменная i инкрементируется.
- Если число a больше значения переменной max, то:
  - Значение переменной max обновляется и присваивается число a.
  - Значение переменной k обновляется и присваивается значение i.
- Если число a меньше значения переменной min, то:
  - Значение переменной min обновляется и присваивается число a.
  - Значение переменной z обновляется и присваивается значение i.
- Цикл завершается, когда число a равно 0.
Выводится сообщение 'номер минимального элемента: ', значение переменной z, 'Номер максимального элемента ', значение переменной k.