Создать числовой файл . Найти в файле сумму и произведение максимальной и минимальной компонент. Выяснить что больше

program ABC;
var a,b,i,left,right,I2_0,k:integer;
    f:file of integer;
begin
  assign(f,'f.dat');
  writeLn('введите первую компоненту файла f (признак конца ввода: "555")');
  //ввод файла
  rewrite(f);
  readLn(b);
  i:=1;   //номер компоненты файла
  while b<>555 do
    begin
      write(f,b);
      inc(i);
      writeLn('введите ',i,'-ую компоненту файла f');
      readLn(b);
    end;
 
  //вывод файла до изменения
  reset(f);
  writeLn('файл f до изменения:');
  while not EOF(f) do
    begin
      read(f,b);
      write(b:5);
    end;
  writeLn;
 
  // поиск позиции второго нуля
  k:=0;
  reset(f);
  while (not EOF(f)) and (k<>2) do
    begin
      read(f,b);
      if b=0 then
        begin
          k:=k+1;
          if k=2 then
            I2_0:=filePos(f)-1;
        end;
    end;
 
  // проверка возможности перестановки в файле
  if k<2 then
    writeLn('в файле нет двух нулей')
  else
    if I2_0=fileSize(f) then
      writeLn('второй ноль в файле на последнем месте')
    else
      begin
        // перестановка компонент файла
        left:=I2_0+1;
        right:=fileSize(f)-1;
        while left<right do
          begin
            seek(f,left);
            read(f,b);
            seek(f,right);
            read(f,a);
            seek(f,left);
            write(f,a);
            seek(f,right);
            write(f,b);
            left:=left+1;
            right:=right-1;
          end;
        //вывод файла после изменения
        reset(f);
        writeLn('файл f после изменения:');
        while not EOF(f) do
          begin
            read(f,b);
            write(b:5);
          end;
        writeLn;
      end;
  close(f);
end.