Cумма столбцов матрицы_Т

[Leshiy1]

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

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
 lea bx,a
 mov di,0
 mov ax,[bx+di]
 mov si,di
 mov cx,n*m
 end;
 Readkey;
 End.

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

[Stilet]

А почему поиском не прошелся?
http://www.programmersforum.ru/showthread.php?t=8932

[Leshiy1]

Program Matrix;
Uses Crt;
const n=5; m=7;
var a:array[1..n, 1..m] of byte;
i,j,s,a1:integer;
begin randomize; clrscr;
textcolor(14);
for i:=1 to n do begin
writeln;
for j:=1 to m do
begin
a[i,j]:=10+random(20);
write(a[i,j]:5);
end; writeln; end;
writeln;
asm
mov di,i
mov cx,m
mov bx,0
mov ah,0

@1: mov a1,a[di]
add bx,ax
add di,n
loop @1
mov s,bx
end;
write(s);
Readkey;
End.

Пишет недопустимая комбинация в этом месте @1: mov a1,a[di] , а именно a[di]