Определить вторые по значению минимальное и максимальное числа и их позиции в файле - Pascal

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

Создать типизированный файл целых чисел. Записать в него с консоли последовательность целых чисел, конец последовательности (терминатор) – ноль, который не записывается в файл. Определить вторые по значению минимальное и максимальное числа и их позиции в файле (нумерация данных в файле начинается с нуля). Предусмотреть случай, когда таких чисел в файле нет. Удалить из файла все числа, находящиеся между ними.

Решение задачи: «Определить вторые по значению минимальное и максимальное числа и их позиции в файле»

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

for i:=2 to filesize(max2)-1 do
 begin
  seek(max2,i);
  read(max2,a);
  if a>mx1 then
   begin
    imx2:=imx1;
    mx2:=mx1;
    imx1:=i;
    mx1:=a;
   end
  else if a>mx2 then
   begin
    imx2:=i;
    mx2:=a;
   end;
  if a<mn1 then
   begin
    imn2:=imn1;
    mn2:=mn1;
    imn1:=i;
    mn1:=a;
   end
  else if a<mn2 then
   begin
    imn2:=i;
    mn2:=a;
   end;
 end;

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

Данный код на языке Pascal предназначен для определения вторых по значению минимального и максимального чисел и их позиций в файле. В цикле от i=2 до filesize(max2)-1 происходит следующее:

seek(max2,i) перемещает файл max2 к позиции i
read(max2,a) считывает число из файла max2 и сохраняет его в переменной a
затем происходит проверка условия a>mx1. Если это условие истинно, то значения переменных imx2, mx2, imx1 и mx1 изменяются таким образом, чтобы imx2 было равно imx1, mx2 было равно mx1, а imx1 было равно текущему значению i. Значение mx1 становится равным значению a.
Если условие a>mx2 истинно, то значения переменных imx2, mx2, imx1 и mx1 изменяются таким образом, чтобы imx2 было равно i, mx2 было равно a, а imx1 и mx1 остались без изменений.
Затем происходит проверка условия a<mn1. Если это условие истинно, то значения переменных imn2, mn2, imn1 и mn1 изменяются таким образом, чтобы imn2 было равно imn1, mn2 было равно mn1, а imn1 и mn1 стали равными текущему значению i. Значение mn1 становится равным значению a.
Если условие a<mn2 истинно, то значения переменных imn2, mn2, imn1 и mn1 изменяются таким образом, чтобы imn2 было равно i, mn2 было равно a, а imn1 и mn1 остались без изменений.
В конце цикла выполняется end;. Таким образом, данный код позволяет определить вторые по значению минимальное и максимальное числа и их позиции в файле.