Делфи. Файлы,массивы,сортировка

[Jane_Air]

Помогите,пожалуйста, найти ошибку

Условие:Файл содержит квадратный массив действительных чисел. Отсортировать элементы его главной диагонали по убыванию методом прямого выбора.

program dz_2;

const Nmax=1000;
type matr=array[1..Nmax,1..Nmax] of integer;
type mass=array[1..Nmax] of integer;


procedure swap(var a, b : integer);
 var t : integer;
begin
 t := a; a := b; b := t;
end;

procedure readMatr(var a:Matr; var m:byte);
 var f:text;
     i,j,n:byte;
begin
 assign(f, 'matrix.txt');
 reset(f);
 readln(f,m);
 n:=m;
 for i:=1 to m do
 for j:=1 to n do
 read(f,a[i,j]);
 close(f);
end;

procedure form_b(var b:mass;m:byte;a:matr);
var i:byte;
begin
  for i:=1 to m do b[i]:=a[i,i];
end;

procedure selectSort(var b:mass; m:integer);
 var iMax:word;
     i, k : word;
begin
 for k:=m downto 2 do
 begin
 iMax:=1;
 for i:=2 to k do
 if b[i]>b[iMax] then iMax:=i;
 if iMax<>k
 then swap(b[k], b[iMax])
 end;
end;

procedure form_a(var a:matr;b:mass;m:byte);
var i,x:byte;
begin
  x:=1;
  for i:=m downto 1 do begin
    a[i,i]:=b[x];
    inc(x);
  end;
end;

procedure seeMatr(a:Matr;m:byte);
 var f:text;
     i,j,n:byte;
begin
 assign(f, 'matrix.txt');
 rewrite(f);
 n:=m;
 for i:=1 to m do begin
            for j:=1 to n do
            write(f,a[i,j]);
            writeln;
                  end;
 close(f);
end;


var f:text;
    a:Matr;
    m:byte;
    b:mass;
begin
 readMatr(a,m);
 form_b(b,m,a);
 selectSort(b,m);
 form_a(a,b,m);
 seeMatr(a,m);
end.