Как отсортировать матрицу по строкам? Матрица квадратная n=5;

 procedure Upor(k:integer;D:mat;var D1:mat);
 var i,j:integer;
     j1:real;
begin
 for i:=1 to k do
  for j:= 1 to k do
  If  D[i,j]>D[i,j+1] then
  begin

 j1:= D[i,j];
 D[i,j]:=D[i,j+1];
 D[i,j+1]:=j1;
 end;

for i:=1 to k do
  for j:= 1 to k do
  D1[i,j]:=D[i,j];


 end;

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

+ почитай Массивы. Матрицы. Типичные задачи.

Там только пузырь есть. Можете код выложить для матрицы, срочно нужно.

Кароче я въехал

{CoptipoBka MatriX}
for i:=1 to k do
 for l:=1 to k-1 do
 for    r:=l+1 to k do
  if    D[i,l]>D[i,r]   then
   begin
    t:=D[i,l]; D[i,l]:=D[i,r]; D[i,r]:=t;
   end;