Многомерные массивы(Delphi)сортировка

[Black-ice]

Задана матрица Am×m . Упорядочить (переставить) строки матрицы по возрастанию сумм их элементов.
Начало сделала, а что дальше не знаю...Подскажите, пожалуйста
var a:array [1..10,1..10]of Real;b:array [1..10,1..10] of Real; k,S:Real;i,j,n,m:Integer;

begin
{ TODO -oUser -cConsole Main : Insert code here }
write('strok=');Readln(n);
write('stolbcov=');Readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
Readln(a[i,j]);
end;
Writeln('matrica a:');
for i:=1to n do
begin
for j:=1 to m do
write(a[i,j]:4:0);
Writeln;
end;
for i:=1 to n do
begin
S:=0;
for j:=1 to m do
S:=S+a[i,j];
b[i,1]:=S;
b[i,2]:=i;
end;
Writeln('matrica b:');
for i:=1 to n do
begin
for j:=1 to 2 do
write(b[i,j]:4:0);
Writeln;
end;
for i:=1 to n do
for j:=1 to 2 do
if b[i,j]>b[i+1,j] then
begin
k:=b[i,j];
b[i,j]:= b[i+1,j];
b[i+1,j]:=k;
end;
Readln;
end.

[GetMax]

Уже неоднократно говорилось об алгоритмах выполнения подобных задач. 2 матрицы в этой задаче ни к чему. Всё гораздо проще: просто храните найденные суммы в дополнительном(специально выделенном столбце). И переставляйте строки по значениям в этом столбце.