Упорядочивания матрицы Опции

[KreN.del]

Требования:
1)Как console apllication
2)Использовать, пока только то что прошли, а тоесть массивы и циклы
Задача:
Дана целочисленная матриц А(n,m).Упорядочить по возрастанию элементы каждого столбца матрицы.

[мисс_граффити]

Поиск+FAQ

[KreN.del]

Ребят вот какой-то код наваял.. Ошибка в просчете появляется лишь в некоторых столбцах...
Немогли ли вы мне баг мой найти?

type
  TDar=array of integer;
  TDarr=array of TDar;
var
  x:TDarr;
  i,j,n,m,d,max,imax,c,z:integer;
begin
  write('kol-vo ctroc=');
  readln(n);
  write('kol-vo ctolbcov=');
  readln(m);
 setlength(x,n,m);
   for i:=0 to n-1 do
    for j:=0 to m-1 do
    read(x[i][j]);
 for j:=0 to m-1 do
        for i:=0 to n-1 do
          for d:=1 to n-1 do
       begin
        max:=x[0][0];
        imax:=0;
        for c:=0 to n-d do
         if(x[c][j]>max)then
          begin
           max:=x[c][j];
           imax:=c;
          end;
        x[imax][j]:=x[n-d][j];
        x[n-d][j]:=max;
             end;
  //вывод построчно
   for i:=0 to n-1 do
   begin
    writeln;
    for j:=0 to m-1 do
      write(x[i][j],' ');
   end;
   readln;
   readln;
end.

[T4x]

Не пользуйся read ом