Двумерные массивы Опции

[gareld]

У вас на форуме нашел нужную задачу помогите разобраться. вот задача и ваш ответ Расположить столбцы матрицы D[M, N] в порядке возрастания элементов k-ой строки (1 ≤ k ≤ М). ОТВЕТ:

 Const
  size_col = 6;  { число столбцов }
  size_row = 8; { число строк }
Type
  TColumn = Array[1 .. size_row] Of Integer;
  TMatrix = Array[1 .. size_col] Of TColumn;
Var
  k: Integer;

  Procedure Bubble(Var mx: TMatrix; n: integer);
  Var
    i, j: Integer;
    T: TColumn;
  Begin

    For i := 1 To n Do
      For j := n DownTo i+1 Do
        If mx[Pred(j)][k] > mx[j][k] Then Begin
          T := mx[Pred(j)]; mx[Pred(j)] := mx[j]; mx[j] := T
        End
  End;

var
  D: TMatrix;

begin
  { вводишь матрицу: D }
  { вводишь номер строки: K }

  Bubble(D, size_col);

  { распечатываешь матрицу D }
end.

Вопрос: 1)Как правильно ввести матрицу D 2)Как правильно её отпечатать.
За любые ответы спасибо.

[Gareld]

Ну вот помучал и получилась , токо работает с размерностью 5*5 (с такой которая введена в const) как это исправить и какие ошибки вы найдете

  Const
  size_col = 5;  { число столбцов }
  size_row = 5; { число строк }
Type
  TColumn = Array[1 .. size_row] Of Integer;
  TMatrix = Array[1 .. size_col] Of TColumn;
Var
  k: Integer;
    n,m:integer;
  Procedure Bubble(Var mx: TMatrix; n: integer);
  Var
    i, j: Integer;
    T: TColumn;
  Begin

    For i := 1 To n Do
      For j := n DownTo i+1 Do
        If mx[Pred(j)][k] > mx[j][k] Then Begin
          T := mx[Pred(j)]; mx[Pred(j)] := mx[j]; mx[j] := T
        End
  End;

  procedure print(var d: tmatrix);
 var i, j: integer;
 begin
   for i := 1 to n do
     begin
       for j := 1 to m do
         write(d[j][i]:4); { <<< Обратите внимание на индексы !!! }
       writeln
     end;
 end;
var
  D: TMatrix;
      i,j:integer;
begin
randomize;

readln(m); readln(n);
  { вводишь матрицу: D }

  for i:=1 to n do begin
   for j:=1 to m do begin
   d[i][j]:=random(10);
   end;
   end;
   print(d);
  { вводишь номер строки: K }
        readln(k);
  Bubble(D, size_col);
   print(d);
  { распечатываешь матрицу D }
readln;
end.

Помогите к понедельнику нужно сдать!
И еще не корректно работает с размерностью и (постоянными ) = 9*3 2*4 и т.д т.е не квадратные