Работа с матрицей

[Absent]

Дана задача: Переместить местами строки матрицы в порядке убывания последних элементов строк; n=5, m=4. Вот что получилось у меня:

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

const
m=4;
n=5 ;
a: array[1..m,1..n] of integer = ((1,2,3,4,5),
                                 (3,5,2,7,8),
                                 (2,6,9,2,0),
                                 (4,5,7,2,8));
Var
i,j,d,z,str,max :integer;

begin
For z:=1 to m do
begin

max:=A[z,n];
str:=z;
For i:=z to m do
begin
if max<A[i,n] then
begin
max:=A[i,n];
str:=i;
end;
end;
For j:=1 to m do
begin
d:=A[z,j];
A[z,j]:=A[str,j];
A[str,j]:=d;
end;
end;
For i:=1 to m do
For j:=1 to n do
begin
write (A[i,j],' ');
if j=n then readln;
end;
readln;
end.

Написал, но не работает или работает но неправильно. Прошу помощи.

[Sazary]

Почему у вас матрица в константах прописана? Вы же ее сортируете.

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

const
m=4;
n=5 ;

Var
i,j,k,tmp,max :integer;
a: array[1..m,1..n] of integer = ((1,2,3,4,5),
                                 (3,5,2,7,8),
                                 (2,6,9,2,0),
                                 (4,5,7,2,8));
begin

// вывод исходной матрицы
for i:=1 to m do
 begin
 for j:=1 to n do
  write(A[i,j]:4);
 writeln;
 end;
writeln;
//---------

// сортировка
for i:=1 to m-1 do
 begin
 max := i;
 for j:=i+1 to m do
  if A[j,n]>A[max,n] then max := j;
 for k:=1 to n do
  begin
  tmp := A[max,k];
  A[max,k] := A[i,k];
  A[i,k] := tmp;
  end;

 end;

// вывод отсортированной матрицы
For i:=1 to m do
 begin
 For j:=1 to n do
  write(A[i,j]:4);
 writeln;
 end;
readln;
end.

[Absent]

Спасибо большое!