В каждой строке двумерного массива подсчитать сумму положительных и отрицательных элементов

program sums;
const mm=10; nn=10;
type
matr=array[1..mm,1..nn] of real;
var
  a:matr;
  b:array [1..mm] of integer;
  i,j,n,m:integer;
  so,sp:real;
  begin
    write ('ведите число строк -');
    readln (n);
    write ('введите число столбцов -');
    readln (m);
    for j:=1 to m do
    begin
      for i:=1 to n do
      begin
        write ('ведите а[',i,',',j,']=');
        readln (a[i,j])
      end;
    end;
    WRITELN;
    WRITELN('ВВЕДЕН МАССИВ:');
    WRITELN;
    FOR I:=1 TO N DO
     BEGIN
       FOR j:=1 TO M DO
       WRITE(A[I,J]:6:2,' ');
       WRITELN
      END;
    for i:=1 to n do
    begin
     if a[i,j]<0 then so:=so+a[i,j];
     writeln ('сумма отрицательных элементов=',so);
    end;
    begin
      for i:=1 to n do
        for j:=1 to m do
          if a[i,j]>0 then sp:=sp+a[i,j];
        writeln ('cумма положительных элементов=', sp);
    end;
  end.

for i:=1 to n do
 begin
  so:=0;
  sp:=0;
  for j:=1 to m do
  if a[i,j]<0 then so:=so+a[i,j]
  else if a[i,j]>0 then sp:=sp+a[i,j];
  writeln ('Строка ',i,' сумма отрицательных элементов=',so,' сумма положительных элементов=', sp);
 end;