Требуется помощь с задачей

[kiko]

Дана двумерная матрица А размером (M  N). Отсортировать каждый столбец матрицы в порядке убывания. На печать вывести исходную матрицу и результирующую с соответствующими подписями. Расположить на экране рядом.

Помогите пожалуйста

[alex_fcsm]

uses crt;
const m=5;
      n=5;
var a:array[1..m,1..n]of integer;
    i,j,k,temp:integer;

begin
clrscr;
randomize;
for i:=1 to m do
 begin
   writeln;
   for j:=1 to n do
    begin
    a[i,j]:=random(10);
    write(a[i,j]:3);
    end;
 end;

for j:=1 to n do
   for i:=2 to m do
    for k:=m downto i do
      if a[k-1,j]<a[k,j] then
        begin
          Temp:=a[k-1,j];
          a[k-1,j]:=a[k,j];
          a[k,j]:=temp;
        end;

writeln;
writeln('=========================');
for i:=1 to m do
 begin
  writeln;
   for j:=1 to n do
    write(a[i,j]:3);
 end;
end.

[kiko]

Огромное спасибо...