Здравствуйте всем.

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


Program Matrix2;
 Uses Crt;
 label a1;
 const n=3; m=5;
 var a:array[1..n, 1..m] of integer;
     s1:array[1..n] of integer; {novuy massiv}
     i,j,s:integer;
 begin randomize; clrscr;
   textcolor(14);
   for i:=1 to n do begin writeln;
         for j:=1 to m do begin
         a[i,j]:=random(10)-5;
         write(a[i,j]:3);
       end; writeln; end;
       writeln;
  asm

  end;

  readkey;
  End.

Program Matrix2;
 Uses Crt;
 label a1;
 const n=3; m=5;
 var a:array[1..n, 1..m] of integer;
     s1:array[1..n] of integer; {novuy massiv}
     i,j,s:integer;
 begin randomize; clrscr;
   textcolor(14);
   for i:=1 to n do begin writeln;
         for j:=1 to m do begin
         a[i,j]:=random(10)-5;
         write(a[i,j]:3);
       end; writeln; end; writeln;
       writeln(' Massiv'); writeln;
  for i:=0 to m-1 do begin
  asm
  mov di,i
  mov cx,n
  mov bx,0
  mov ax,0
  add bx,ax
  add di,j
  mov s,bx

  end;
  write(s:3);
  end;

Выводит только нули