Сортировка двумерного массива Опции

[nokia3310]

Помогите, пожалуйста! Дан двумерный массив. Отсортировать всю матрицу по возрастанию.
например, если исходный массив такой:
4 2 6
1 5 8
7 9 3
то должен получиться такой:
1 2 3
4 5 6
7 8 9

Вот мои наработки:

program z13;
var i,j,k,n,m,s:integer;
a:array[1..100,1..100] of integer;

begin
randomize;

writeln ('Введите количество строк и столбцов массива');
readln (n,m);

for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(25)-10;
write(a[i,j]:4);
end;
writeln;
end;
writeln;

if (i>1) and (j=1) then

begin
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]>a[n,j-1] then
begin
k:=a[i,j];
a[i,j]:=a[n,j-1];
a[n,j-1]:=k;
end;
end;
end

else
if j>1 then
begin
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]>a[i,j-1] then
begin
k:=a[i,j];
a[i,j]:=a[i,j-1];
a[i,j-1]:=k;
end;
end;
end;

for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:4);
end;
writeln;
end;

end.

Сообщение отредактировано: nokia3310 - 25.01.2011 14:21