Задача на матрицу, Метод пузырька Опции

[drug]

Вот надо упорядочить матрицу по убыванию ..
использовал метод пузырька
получается ток элементы по убыванию в каждой строке ...
а надо всю матрицу ...
кроч вот код: шо не так?

program asd;
uses crt;
const
n=5;
m=5;
var
a:array[1..n,1..m]of integer;
i,j,k,swap:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(15)-10;
for i:=1 to n do
begin
for j:=1 to m do
write(' ',a[i,j]);
writeln;
end;
for i:=1 to n do
begin
for j:=1 to m-1 do
for k:=1 to m-j do
if a[i,k] < a[i,k+1] then
begin
swap:=a[i,k];
a[i,k]:=a[i,k+1];
a[i,k+1]:=swap;
end;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(' ',a[i,j]);
writeln;
end;
readln;
end.