двумерный массив нид хелп Опции

[-111-]

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

[Bokul]

В чем проблемы?
Все, что тебе надо находится здесь:
Как задать матрицу, чтобы быстро поменять местами ее строки
и
Методы сортировок

[-111-]

я это всё перечитал - не получается нифига

[Bokul]

Значит читай еще, пока не поймешь! Или же обращайся с конкретными вопросами по задачи! Никто без твоего участия делать не будет!

[-111-]

Uses Crt;
Const N=3; M=5;
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.

[-111-]

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