дана матрица 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.

По возрастанию ЧЕГО? Суммы элементов? Произведения элементов? Количества нулей в столбце? ...

Уточняй...

по возростанию сумм элементов стобцов.

помогите плз хоть кто нибудь