Транспонировать матрицу или упорядочить строки по неубыванию

uses crt;
const n=10;
type mtr=array[1..n,1..n] of real;
procedure matrix(var a:mtr);
var i,j:byte;
begin
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-11+21*random;
    write(a[i,j]:7:2);
   end;
  writeln;
 end;
writeln;
end;
procedure summa(a:mtr;var sp,so:real);
var i,j:byte;
begin
sp:=0;so:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]>0 then sp:=sp+a[i,j]
else if a[i,j]<0 then so:=so+abs(a[i,j]);
end;
procedure Sort(var a:mtr);
var i,j,k:byte;
    x:real;
begin
writeln('Сумма модулей отрицательных больше, упорядочивание строк');
for i:=1 to n do
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i,j]>a[i,k] then
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:7:2);
  writeln;
 end;
end;
procedure trans(var a:mtr);
var i,j:byte;
    x:real;
begin
writeln('Сумма положительных больше, транспонировние матрицы');
for i:=2 to n do
for j:=1 to i-1 do
 begin
  x:=a[i,j];
  a[i,j]:=a[j,i];
  a[j,i]:=x;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:7:2);
  writeln;
 end;
end;
var a:mtr;
    sp,so:real;
begin
clrscr;
randomize;
matrix(a);
summa(a,sp,so);
writeln('Сумма положительных=',sp:0:2);
writeln('Сума модулей отрицательных=',so:0:2);
if sp>so then trans(a)
else if so>sp then sort(a)
else write('Суммы положительных и модулей отрицательных равны, матрица не преобразуется');
readln
end.

var a:mass;//матрица
     m,n,i,j:byte;//размеры и счетчики циклов