Двумерный массив, сортировка по условию. Переделать решение.

[zetwer]

Требуется небольшая помощь. Задача звучит так: "Переставить столбцы двумерного массива (5x6) в порядке возрастания суммы их элементов".

Я нашел решение задачи для строк:
const
N = 5;
M = 6;

var
a: array [0..N-1, 0..M-1] of integer;
sum: array [0..N-1] of integer; {суммы строк}
temp: array [0..M-1] of integer;
i: integer;
j: integer;
k: integer;
begin
{инициалицируем массив случайными числами}
for i:=0 to N-1 do
for j:=0 to M-1 do
a[i, j] := random(10);


{подсчитываем суммы строк}
for i:=0 to N-1 do begin
sum[i] := 0; {сначала сумма равна нулю}
for j:=0 to M-1 do sum[i] := sum[i] + a[i, j];
end;

{выводим на экран начальные данные}
for i:=0 to N-1 do begin
for j:=0 to M-1 do write(a[i, j]:3);
writeln(': ', sum[i]:3);
end;
writeln;

{сортируем массив по суммам методом пузырька}
for i:=0 to N-1-1 do begin
for j:=i+1 to N-1 do begin
if sum[j] < sum[i] then begin
{меняем местами строки посредством temp - наш пузырёк}
for k:=0 to M-1 do temp[k] := a[i, k];
for k:=0 to M-1 do a[i, k] := a[j, k];
for k:=0 to M-1 do a[j, k] := temp[k];
{меняем местами суммы в массиве sum посредством k}
k := sum[i];
sum[i] := sum[j];
sum[j] := k;
end;
end;
end;

{выводим на экран результат}
for i:=0 to N-1 do begin
for j:=0 to M-1 do write(a[i, j]:3);
writeln(': ', sum[i]:3);
end;
writeln;
end.

Как его переделать, чтобы переставлялись столбцы, а не строки? Сам дальше нахождения суммы столбцов не ушел.

Всем заранее спасибо!