Задача.

[dariya.95]

Помогите,пожалуйста,решить задачу!
Составьте программу,упорядочивающую по возрастанию элементы каждого столбца матрицы размером m*n.
У меня выходит всего одна цифра в ответ.Подскажите,где ошибка.

program zad_7;
const n=5;m=6;
var A:array[1..m,1..m] of integer;
    i,j,k,b:integer;
begin
     i:=m;
     j:=n;
     randomize;
     for i:=1 to m do
     begin
          for j:=1 to n do
          begin
               A[i,j]:=random(10);
               write (A[i,j]:4);
          end;
          writeln;
     end;
     writeln;
     for j:=1 to n do
     begin
          for k:=1 to m-1 do
          begin
               for i:=1 to m-k do
               begin
                    if (A[i,j])<(A[i+1,j]) then
                    begin
                         b:=A[i,j];
                         A[i,j]:=A[i+1,j];
                         A[i+1,j]:=b;
                    end;
               end;
          end;
     end;
     write(A[i,j]);
end.

[dariya.95]

Ой,все!Не надо)Я сделала