Сортировка, Паскаль

[masterlomaster]

Доброго вечера всем.

Составить программу сортировки строк в вещественной матрице A(NXN) по возрастанию их собственных значений.
Собственное значение строки с номером j определяеться по формуле сумма aij / N.

Программма нормально компилируется, только результат не тот.
Выводит вводимую матрицу без изменений, будто
не замечает for i:= 1 to N-1 do
for k:=i+1 to N do
if TUTU (A, i, N)> TUTU (A, k, N) then TATA (A, i, k, N);

Заранее спасибо!

Program SORTIROVKA (intput, output);
Type Matrix = array [1..10, 1..10] of real;
Var
i, j, k, N :integer;
u: real;
A: Matrix;
ex: char;
label 1;

 function TUTU (A: Matrix; i, N: integer):real;
  Var
   j :integer;
   S :real;
  Begin
   S:=0;
    for j:=1 to N do
     S:=S+A[i,j];
   TUTU:=S/N
  end;{TUTU}

 Procedure TATA (A: Matrix; i, k, N:integer);
  Var
  j:integer;
  S:real;
 Begin
  For j:=1 to N do
   Begin
    S:=A[i,j];
    A[i,j]:=A[k,j];
    A[k,j]:=S
   end
 end;{TATA}

Begin
   1:repeat
    Writeln ('Vvedite kol-vo strok i stolbsov N');
    Readln (N);
   until (N>1) and (N<11);
   Writeln ('Vvedite elementi matrici "A"');
    for i:= 1 to N do
     for j:= 1 to N do
      begin write ('A[',i:2,',',j:2,']=');
       Read (A[i,j]);
      end;
       Writeln (' MAtrica "A"');
        for i:=1 to N do
         begin
          for j:=1 to N do
           write(A[i,j]:5:2);
           writeln;
         end;
            for i:= 1 to N-1 do
             for k:=i+1 to N do
              if TUTU (A, i, N)> TUTU (A, k, N) then TATA (A, i, k, N);
              Writeln('otsortirovannaa matrica');
               for i:=1 to N do
                begin
                 for j:=1 to N do
                  write (A[i,j]:5:2);
                  writeln;
                end;
         Writeln ('Povtorit program? (y\n)');
         repeat
          read (ex);
         until (ex = 'y') or (ex = 'n');
          if ex = 'y' then goto 1 else exit;
end.

[Z1000000]

Правильно не заработает, но менять матрицу начнет.

Procedure TATA (var A: Matrix; i, k, N:integer);