Двумерные массивы_Т

[Leshiy1]

Здравствуйте люди добрые.
Задача такая: В матрице C[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.

Скажите как найти сумму столбцов матрицы, со вставками ассемблера