Очень нужно исправить программу в Delphi !!!

[Grifon_666]

Задание: Дана матрица(5x5). В строках найти наибольший элемент. Сортировать строки в матрице по убыванию наибольших элементов в строке.
Ниже привожу похожую программу, только там в ней наибольший элемент ищется , не в строках, а в столбцах, и сортируются столбцы не по убыванию а по возрастанию. Помогите пожалуйста исправить.


program prog_2;

{$APPTYPE CONSOLE}
const n = 5;

var
a : array[1..n] of array[1..n] of Integer;

procedure FillMatrix();
var
i,j:Integer;
begin
Randomize;
for i := 1 to n do
for j := 1 to n do
a[i][j] := Random(100);
end;

procedure PrintMatrix();
var
i,j : Integer;
begin
for i := 1 to n do begin
Write(' ');
for j := 1 to n do begin
if a[i][j] <= 9 then
Write(a[i][j],' ')
else
Write(a[i][j],' ');
end;
Writeln;
end;
end;

procedure SaveMatrix(f:String);
var
fp : Text;
i,j : Integer;
begin
Assign(fp,f);
ReWrite(fp);
for i := 1 to n do begin
for j := 1 to n do begin
if a[i][j] <= 9 then
Write(fp,a[i][j],' ')
else
Write(fp,a[i][j],' ');
end;
Writeln(fp);
end;
Close(fp);
end;


procedure Swap(x:Integer; y:Integer);
var
i,t : Integer;
begin
for i := 1 to n do begin
t := a[i][y];
a[i][y] := a[i][x];
a[i][x] := t;
end;
end;

procedure SortMatrix();
var
m,i,j,x,t : Integer;
begin
for x := n downto 1 do begin
m := 0;
for i := 1 to x do begin
for j := 1 to n do begin
if a[j][i] > m then begin
m := a[j][i];
t := i;
end;
end;
end;
if x <> t then Swap(x, t);
end;
end;

begin
Writeln;
Writeln(' ---Unsorted---');
FillMatrix;
PrintMatrix;
Writeln;

Writeln(' ----Sorted----');
SortMatrix;
PrintMatrix;
SaveMatrix('matrix.txt');

Readln;
end.