Вычислить суммы положительных элементов каждой строки для матриц A(10,12) и B(15,10)

program one;
const
nmax=100;
var
a:array[1..nmax,1..nmax] of integer;
n,m,i,j,sum:integer;
begin
writeln('Введите размеры матрицы n,m: ');
readln(n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(199)-99;
end;
writeln ('введенная матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);
writeln;
end;
Writeln('Сумма положительных эл-тов: ');
For i:=1 to n do
begin
For j:=1 to m do
if a[i,j]>0 then sum:=sum+a[i,j];
Writeln('В ',i,'-й строке = ',sum);
sum:=0;
end;
end;
end.

const
  nmax=20;
 
type
  ar=array[1..nmax,1..nmax] of integer;
  ar1=array[1..nmax] of integer;
 
procedure init(var a: ar; n,m: byte);
var i,j: byte;
begin
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=random(19)-9;
end;
 
procedure outPut(a: ar; n,m: byte);
var i,j: byte;
begin
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  writeln;
end;
 
procedure pol(a: ar; var b: ar1; n,m: byte);
var i,j,s: byte;
begin
  for i:=1 to n do
  begin  
    s:=0;
    for j:=1 to m do
      if a[i,j]>0 then s:=s+a[i,j];
    b[i]:=s;
  end;
  writeln('Суммы положительных элементов по строкам:');
  for i:=1 to n do
    writeln('В ',i,'-й строке сумма положительных = ',b[i]);
  writeln;
end;
 
var
  a,b: ar;
  a1,b1: ar1;
  n,m: byte;
begin
  n:=10; m:=12;
  init(a,n,m);
  writeln('Матрица A:');
  outPut(a,n,m);  
  pol(a,a1,n,m);
  
  n:=15; m:=10;
  init(b,n,m);
  writeln('Матрица B:');
  outPut(b,n,m);
  pol(b,b1,n,m);
end.