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

Uses crt;
 
const n=5;
 
var a:array [1..n,1..n] of integer;
    b:array [1..n] of integer;
i,j,x,sum:integer;
 
{======================================================================}
procedure swap(var x,y:integer);
var t:integer;
begin
t:=x; x:=y; y:=t;
end;
{======================================================================}
Procedure Matrica;
begin
Writeln('Матрица: ');
   For i:=1 to n do
     begin
     sum:=0;
     For j:=1 to n do
       begin
       randomize;
       a[i,j]:=random(50)-10;
       if odd(a[i,j]) and (a[i,j]>0) then sum:=sum+a[i,j];
       write(a[i,j]:4)
       end;
     b[i]:=sum;
     writeln;
     end;
   writeln;
   Writeln('Сумма полож. эл-тов:');
   For i:=1 to n do
   Writeln(i,'-й строки = ',b[i]);
end;
{======================================================================}
Procedure Sortirovka;
begin
For i:=1 to n do
     For j:=1 to n-1 do
     if b[j]>b[j+1] then
                       begin
                       swap(b[j],b[j+1]);
                       For x:=1 to n-1 do
                       swap(a[j,x],a[j+1,x])
                       end;
   Writeln;
end;
{======================================================================}
Procedure NovajaMatrica;
begin
Writeln('Новая матрица:');
   For i:=1 to n do
     begin
     For j:=1 to n do
        write(a[i,j]:4);
     writeln;
     end;
end;
 
begin  {Основная программа}
     Matrica;
     Sortirovka;
     NovajaMtrica;
end.