сортировка 2-массива, хелп Опции

[-KOT-]

дана матрица X[n*m].расположить элементы столбцов заданной матрицы по убыванию , а сами столбцы по возрастанию.


помогите плз написать главный цикл сортировки в середине проги .

type Mas=array[1..N,1..M] of real;
Var X:Mas;
i, j, Imax, Jmax,f: integer;
Xmax,y:real;
BEGIN
{zapolnenie massiva}
Randomize;
For i:=1 to N do
For j:=1 to M do
X[i,j]:=Random(100)/10-5;










{vyvod rezyltata}
ClrScr;
Writeln('isxodnyu massiv');
For i:=1 to N do
begin
For j:=1 to M do Write (X[i,j]:6:2);
Writeln
end;
Writeln;
Writeln('maksimalnyu element massiva =', Xmax:2:2);
Writeln('stroka ego =',Imax);
Writeln('stolbec ego =',Jmax);
readln
END.