сортировка в Pascal'е. отсортировать столбцы в матрице по невозрастанию в первой строке.

[Patrikstar666]

Отсортировать столбцы двумерного массива чисел (n х m) по невозрастанию значений элементов в первой строке.

Program prog; 
Cоnst nmax=10; 
Type matr=array [1..nmax,1..nmax] of integer; 

Procedure InputMatr (n, m: integer; var a: matr); 
var i, j: integer; 
begin 
  writeln('введите элементы матрицы'); 
    for i:=1 to n do 
      for j:=1 to m do 
        readln(a[i,j]); 
end; 

Procedure OutputMatr (n, m: integer; var a:matr); 
var i, j: integer; 
begin 
  for i := 1 to n do 
    begin 
      for j := 1 to m do 
        Write(a[i,j]: 4); 
        WriteLn; 
    end; 
end; 

var n, m: integer; 
a: matr; 
begin 
writeln('введите кол-во строк'); 
readln(n); 
writeln('введите кол-во столбцов'); 
readln(m); 
writeln('ввод матрицы'); 
InputMatr(n, m, a); 

{пустота...} 

writeln('результат'); 
OutputMatr(n, m, a); 
end.

сортировку желательно быструю. можно шейла.
заранее благодарен)



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.