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

uses crt;
var max2:file of integer;
    a,b,mx1,mx2,mn1,mn2,imx1,imx2,imn1,imn2,i,k:integer;
begin
 
assign(max2,'file');
rewrite(max2);
writeln('Введите в файл целые числа, окончание ввода 0:');
repeat
read(a);
if a<>0 then write(max2,a);
until a=0;
 
 
writeln('Содержание исходного файла:');
reset(max2);
 
if filesize(max2)<2 then
 begin
  writeln('Вы ввели менее двух чисел, поиск не возможен');
  close(max2);
  exit;
 end;
 
while not eof(max2) do
 begin
  read(max2,a);
  write(a,' ');
 end;
writeln;
seek(max2,0); //в начало файла
read(max2,a);//первое число
seek(max2,1);
read(max2,b); //второе
if a>b then //выбираем первые мин и макс
 begin
  mx1:=a;
  imx1:=0;
  mx2:=b;
  imx2:=1;
  mn1:=b;
  imn1:=1;
  mn2:=a;
  imn2:=0;
 end
else
 begin
  mx1:=b;
  imx1:=1;
  mx2:=a;
  imx2:=0;
  mn1:=a;
  imn1:=0;
  mn2:=b;
  imn2:=1;
 end;
 //если только 2 элемента, удалять нечего
if filesize(max2)=2 then
 begin
  writeln('Второе максимальное=',mx2,' его позиция=',imx2);
  writeln('Второе минимальное =',mn2,' его позиция=',imn2);
  writeln('Элементов для удаления нет');
  close(max2);
  exit;
 end;
 
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;
  if a>mx2 then
   begin
    imx2:=i;
    mx2:=a;
   end;
  if a<mn1 then  
   begin
    imn2:=imn1;
    mn2:=mn1;
    imn1:=i;
    mn1:=a;
   end;
  if a<mn2 then
   begin
    imn2:=i;
    mn2:=a;
   end;
 end;
writeln(' второй максимальный =',mx2,' его индекс=',imx2);
writeln(' второй минимальный =',mn2,' его индекс=',imn2);
if imx2<imn2 then //если макс меньше, поменяем
 begin
  a:=imx2;
  imx2:=imn2;
  imn2:=a;
 end;
writeln('Удаляем элементы с номерами ',imn2+2,'...',imx2);//номер на 1 больше индекса
if imx2-imx1<=2 then //если они рядом
 begin
  write('Элементов для удаления нет');
  close(max2);
  exit;
 end;
k:=0;
for i:=imx2 to filesize(max2)-1 do//от 2 макс до конца
 begin
  seek(max2,i);
  read(max2,a);
  k:=k+1;
  seek(max2,imn2+k);//все поднимем вверх за 2 мин
  write(max2,a);
 end;
seek(max2,filesize(max2)-(imx2-imn2-1));//отступаем от конца на кол. удаляемых элементов
truncate(max2);//обрезаем пустое
seek(max2,0); //вывод результата
reset(max2);
writeln('Удаление элементов между вторым минимальным и вторым максимальным:');
while not eof(max2) do
 begin
  read(max2,a);
  write(a,' ');
 end;
close(max2);
end.

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;