Переформировать матрицу..., Задали :( Опции

[UserOK]

Вот в школе задачку задали

Переформировать матрицу (m*n) таким образом, чтобы ее столбцы располагались по убыванию их поэлементных сумм

Никак решить немогу...
Помогите пожалуйста, мне только перестановку столбцов нада, без примочек и выводов на экран
Заранее спасибо

[volvo]

Целочисленная матрица A: M строк на N столбцов:

var
  i, j, k: integer;
  s, T: integer;
...
  { ввод матрицы }
...
  for i := 1 to n do
    for j := n downto i + 1 do begin
      s := 0;
      for k := 1 to m do
        s := s + a[k, j] - a[k, j - 1];

      if s > 0 then { < }
        for k := 1 to m do begin
          T := a[k, j - 1]; a[k, j - 1] := a[k, j]; a[k, j] := T
        end;
    end;
...
  { вывод результата }

[UserOK]

Спасибо огроменное!!! Щас буду пробовать дальше!