Переписать компоненты в файле в порядке возрастания

const fn = 'f.dat';
var i, j, mj, n: longword;
    m, p, t: integer;
    f: file of integer;
begin
  assign(f, fn);
  {======= если файл существует, эти строки можно убрать vvv}
  rewrite(f);
  repeat
    write('Количество элементов в файле? ');
    readln(n);
    if n <= 0 then writeln('Количество элементов должно быть > 0, повторите ввод.')
  until n > 0;
  randomize;
  for i := 1 to n do
    begin
      t := (-maxint - 1) div 2 + random(maxint);
      write(f, t)
    end;
  {======= если файл существует, эти строки можно убрать ^^^}
  reset(f);
  writeln('Содержимое файла:');
  for i := 1 to n do
    begin
      read(f, t);
      write(t:16)
    end;
  writeln;
  for i := 0 to n - 2 do
    begin
      seek(f, i);
      read(f, t);
      mj := i;
      m := t;
      for j := i + 1 to n - 1 do
        begin
          read(f, p);
          if p < m
            then begin
              m := p;
              mj := j
            end
        end;
      if mj > i
        then begin
          seek(f, i);
          write(f, m);
          seek(f, mj);
          write(f, t)
        end
    end;
  reset(f);
  writeln('Отсортированный файл:');
  for i := 1 to n do
    begin
      read(f, t);
      write(t:16)
    end;
  writeln;
  close(f);
  readln
end.