Матричная задачка на паскале. Опции

[Katenok8777]

Задача такая: Дана матрица А (m.n). Надо из матрицы А сделать матрицу B так,чтобы все столбцы матрицы А были упорядочены по убыванию максимальных элементов.Заранее спасибо. Пршограмма на паскале должна быть.

[volvo]

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

  TMatrix = Array[1 .. size_col] Of TColumn;

Function GetMax(A: TMatrix; num_row: Integer): Integer;
Var max_value, i: Integer;
Begin
  max_value := A[num_row][1];
  For i := 2 To size_row Do
    If max_value < A[num_row][i] Then
      max_value := A[num_row][i];
  GetMax := max_value
End;

Procedure Bubble(Var mx: TMatrix; Var row: TRow);
Var
  i, j, Tint: Integer;
  T: TColumn;
Begin
  For i := 1 To size_col Do
    For j := size_col DownTo i+1 Do
      If row[Pred(j)] > row[j] Then Begin
        Tint := row[Pred(j)]; row[Pred(j)] := row[j]; row[j] := Tint;
        T := mx[Pred(j)]; mx[Pred(j)] := mx[j]; mx[j] := T;
      End
End;

Procedure ReadMatrix(Var mx: TMatrix);
Var i, j: Integer;
Begin
  For i := 1 To size_row Do Begin
    WriteLn('row #', i);
    For j := 1 To size_col Do Begin
      Write('matrix[', j,',',i, ']: '); ReadLn(mx[j][i]);
    End;
  End;
End;

Procedure WriteMatrix(Var mx: TMatrix);
Var i, j: Integer;
Begin
  For i := 1 To size_row Do Begin
    For j := 1 To size_col Do Begin
      Write(mx[j][i]:4);
    End;
    WriteLn
  End;
End;

Var
  max: TRow;
  A, B: TMatrix;
  i: integer;

begin
  ReadMatrix(A);

  B := A;
  For i := 1 To size_col Do
    max[i] := GetMax(A, i);
  Bubble(B, max);

  WriteMatrix(B);

end.

Больше полностью ничего не буду делать...
Все уже было написано во 2-ом посте, нужно было ТОЛЬКО собрать это в одну программу, неужели это НАСТОЛЬКО трудно?