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

const
M = 5;
N = 7;
var
a: array[1..n,1..m] of integer;
i, j: integer;
sum: integer;
sc: array[1..M] of integer;
sm: array[1..M] of integer;
 
begin
for i:=1 to n do begin 
writeln;
for j:=1 to m do begin
a[i,j]:=random(30)-15;
write(' ');
write(a[i,j]:4);
end; end;
for i:= 1 to n do
for j:=1 to m do
 
if a[i,j] > 0 then sc[j]:=sc[j]+a[i,j]
else sm[j]:=sm[j]+a[i,j];
writeln;
for i:=1 to m do
write(sm[j]:6);
writeln (' |');
 
for i:=1 to m do
write(sc[j]:6);
writeln (' |');
end.

program ex;
uses crt;
const M=5;N=7;
type matrix=array[1..N,1..M]of integer;
var a:matrix;
 
procedure form(var a:matrix);
var i,j:integer;
begin
for i:=1 to N do
for j:=1 to M do
a[i,j]:=random(10)-5
end;
 
procedure print(a:matrix);
var i,j:integer;
begin
for i:=1 to N do
begin
for j:=1 to M do
write(a[i,j]:7);
writeln();
end;
end;
 
procedure summa(a:matrix);
var s,s1,i,j:integer;
begin
s:=0;
s1:=0;
for i:=1 to N do
begin
for j:=1 to M do
begin
if a[i,j]>0 then s:=s+a[i,j];
if a[i,j]<0 then s1:=s1+a[i,j];
end;
  writeln('ñóììà ïîëîæèòåëüíûõ ýëåìåíòîâ ',i,' ñòðîêè: ',s);
  writeln('ñóììà îòðèöàòåëüíûõ ýëåìåíòîâ ',i,' ñòðîêè: ',s1);
  s:=0;
  s1:=0;
end;
end;
 
begin
form(a);
writeln('ìàòðèöà À: ');
print(a);
summa(a);
end.

uses crt;
const m = 5;
      n = 7;
var a: array[1..m,1..n] of integer;
    i, j, sp, so: integer;
begin
writeln('Массив');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-15+random(31);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Суммы положительных и отрицательных в строках');
for i:=1 to m do
 begin
  sp:=0;
  so:=0;
  for j:=1 to n do
  if a[i,j]>0 then sp:=sp+a[i,j]
  else so:=so+a[i,j];
  writeln(i,' положительные=',sp:3,' отрицательные=',so:3);
 end;
end.