Матрица_Т

[Leshiy1]

Здравствуйте всем.
Задача такая: В матрице С[1..5, 1..7] переставить столбцы по возрастанию сумм столбцов матрицы.

Program Matrix;
 Uses Crt;
 const n=5; m=7;
 var a:array[1..n, 1..m] of integer;
     x,y:integer;
 begin randomize; clrscr;
     textcolor(14);
     for x:=1 to n do begin
     writeln;
      for y:=1 to m do
      begin
        a[x,y]:=10+random(20);
        write(a[x,y]:5);
      end; writeln; end;
      writeln;
 asm

 end;
 readkey;
 End.

Как найти сумму столбцов?