задача на матрицу, упорядочить элементы, поменять местами строки Опции

[drug]

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

посмотрите пожалста код, что не так?
почему то не меняет местами строки
и еще что такое по невозрастанию?
я сделал по убыванию, или это не так?

program z3_4;
const
  size_row=5; {chislo strok}
  size_col=5; {chislo stolbtsov}
type
  tvector=array[1 .. size_col] of real;
  tmatrix=array[1 .. size_row] of tvector;
procedure swap_rows(var mx: tmatrix; const i, j: integer);
  var T:tvector;
  begin
    T:=mx[i];
    mx[i]:=mx[j];
    mx[j]:= T
  end;
procedure print(var mx:tmatrix);
  var i,j:integer;
  begin
    for i:=1 to size_row do
      begin
        for j:=1 to size_col do
          write(' ',mx[i][j]);
        writeln;
      end;
  end;
var
  mx:tmatrix;
  i,j,k:integer;
  swap:real;
begin
  randomize;
  for i:=1 to size_row do
    for j:=1 to size_col do
      mx[i][j]:= random(100)-50;
  writeln('before:');
  print(mx);
  for i:=1 to size_row do
    for j:=1 to size_col-1 do
      for k:=1 to size_col-j do
        if mx[i][k]<mx[i][k+1] then
          begin
            swap:=mx[i][k];
            mx[i][k]:=mx[i][k+1];
            mx[i][k+1]:=swap;
          end;
  for i:=1 to size_col do
    for j:=1 to size_col-i do
      if mx[size_row][j]>mx[size_row][j+1] then
         swap_rows(mx,j+1,j);
  writeln('after:');
  print(mx);
end.

[volvo]

почему то не меняет местами строки

Чего это "не меняет"? Все меняет... Вот так у меня показывает (я правда немного подправил процедуру вывода матрицы):

before:
-31.00 48.00 32.00 -47.00 -8.00
-37.00 6.00 2.00 -46.00 34.00
37.00 41.00 -50.00 3.00 -26.00
14.00 -33.00 2.00 -20.00 -35.00
22.00 42.00 -5.00 -3.00 13.00
after:
42.00 22.00 13.00 -3.00 -5.00
14.00 2.00 -20.00 -33.00 -35.00
41.00 37.00 3.00 -26.00 -50.00
34.00 6.00 2.00 -37.00 -46.00
48.00 32.00 -8.00 -31.00 -47.00

Только у тебя выводит по НЕвозрастанию элементов последнего столбца, а надо бы наоборот... Знак поменяй...

[drug]

хмм...
вот поменял стало так:

  for i:=1 to size_col do
    for j:=1 to size_col-i do
      if mx[size_row][j]<mx[size_row][j+1] then
         swap_rows(mx,j+1,j);

before:
30 -47 48 -2 20
-14 36 6 -15 13
48 13 -46 -41 -7
44 -46 -14 -6 34
-47 35 -17 -15 23
after:
48 30 20 -2 -47
36 13 6 -14 -15
48 13 -7 -41 -46
44 34 -6 -14 -46
35 23 -15 -17 -47