Сортировка строк по возрастанию

[westlinex]

Не могу разобраться, как сделать.
Надо упорядочить строки по возрастанию модуля первого элемента

program n_4;
var
A:array[1..10,1..10] of real;
A1:array[1..10] of real;
t,min:real;
i,j,m,k,l:integer;
begin
write('vvedite m=');
readln(m);
randomize;
for i:=1 to m do begin
for j:=1 to m do begin
A[i,j]:=random(9)*0.1-random(9);
end; end;
writeln('  matrica A');
for i:=1 to m do begin
for j:=1 to m do
write(A[i,j]:7:2);
writeln; end;
writeln;
for k:=1 to m do
for i:=1 to m-1 do
for j:=1 to m do
if abs(A[i,1])>abs(A[i+1,1]) then
begin
A1[k]:=A[i,j] ;
A[i,j]:=A[i+1,j];
A[i+1,j]:=A1[k];
end;
writeln;
writeln('Uporyadochennaja matrica A');
writeln;
for i:=1 to m do  begin
for j:=1 to m do
write(A[i,j]:7:2); writeln;
end;
readln;
end.

[westlinex]

Все исправила, если кому интересно:

program n_4;
var
A:array[1..10,1..10] of real;
A1:array[1..10] of real;
i,j,m,k:integer;
begin
write('vvedite m=');
readln(m);
randomize;
for i:=1 to m do begin
for j:=1 to m do begin
A[i,j]:=random(9)*0.1-random(9);
end; end;
writeln('  matrica A');
for i:=1 to m do begin
for j:=1 to m do
write(A[i,j]:7:2);
writeln; end;
writeln;
for k:=1 to m do
for i:=1 to m-1 do
if abs(A[i,1])>abs(A[i+1,1]) then
begin
for j:=1 to m do  begin
A1[k]:=A[i,j] ;
A[i,j]:=A[i+1,j];
A[i+1,j]:=A1[k];
end;end;
writeln;
writeln('Uporyadochennaja matrica A');
writeln;
for i:=1 to m do  begin
for j:=1 to m do
write(A[i,j]:7:2); writeln;
end;
readln;
end.