Сортировка текстового файла внешней сортировкой

[(Нафаня)]

В текстовом файле задана целочисленная матрица размера n´n. Отсортировать файл так, чтобы строки матрицы располагались в порядке убывания элементов, находящихся на главной диагонали. Пыталась делать, неправильно получилось

program zad;
const
  n=4;
type
  mas=array [1..n] of integer;
  matr=array [1..n,1..n] of mas;
  tfile=file of matr;
var
  a:matr;
  i,j,c:integer;
  f:tfile;
  b:mas;
begin
  assign(f,'C:\text\fil.txt');
  reset(f);
  rewrite(f);
  while not eof(f) do
    begin
      if i<=n then
       for i:=1 to n do
        for j:=1 to n do
          if i=j then 
            if a[i,i]<a[i+1,i+1] then 
              begin
                c:=a[i+1,i+1];
                a[i+1,i+1]:=a[i,i];
                a[i,i]:=c;
                write(f,b[i]);
              end
            else
              writeln('error');
     end;
  close(f);
end.