Сформировать файл и оставить в файле только числа, находящиеся между минимальным и максимальным

var
  n, i, max, maxp, min, minp, k, j: integer;
  f: file of integer;
 
begin
  Assign(f, 'f.dat');
  ReWrite(f);
  Writeln('Введите числа, кончание ввода 0:');
  repeat
    ReadLn(n);
    if n <> 0 then 
      write(f, n)
  until n = 0;
  seek(f, 0);
  WriteLn('Числа, записанные в файле:');
  max := -MaxInt;
  min := MaxInt;
  for i := 0 to filesize(f) - 1 Do
  begin
    Read(f, n);
    Write(n, ' ');
    if n > max then
    begin
      max := n;
      maxp := i;
    end;
    if n < min then
    begin
      min := n;
      minp := i;
    end
  end;
  Writeln;
  k := 0;
  WriteLn('Максимальное: ', max, ' номер позиции: ', maxp);
  WriteLn('Минимальное : ', min, ' номер позиции: ', minp);
  if minp > maxp then
  begin
    k := minp;
    minp := maxp;
    maxp := k;
  end;
  k := abs(maxp - minp) - 1;
  j := filesize(f) - k;
  if k < 1 then
  begin
    writeln('Между нет чисел...');
    exit;
  end;
  reset(f);
  for i := 0 to k - 1 do
  begin
    seek(f, minp + i + 1  );
    read(f, n);
    seek(f, i);
    write(f, n);
  end;
  seek(f, filesize(f) - j);
  truncate(f);
  writeln('Остались числа:');
  reset(f);
  while not EOF(f) Do
  begin
    Read(f, n);
    Write(n, ' ');
  end;
  close(f);
  readln;
end.