Сумма положительных элементов матрицы

uses
  crt;
const
  str=10;{количество строк}
  col=20;{количество столбцов}
var
  a:array [1..str,1..col] of integer;
  b:array[1..str]of integer;
  i,j,summ:integer;
begin
  clrscr;
  {заполняем и выыводим матрицу}
  writeln('Исходная матрица A:');
  for i:=1 to str do
  begin
    for j:=1 to col do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {находим максимум каждой строки}
  for i:=1 to str do
  begin
    Summ:=0;
    for j:=1 to col do
      if a[i,j]>0 then
        inc(summ,a[i,j]);
      b[i]:=summ
  end;
  {выводим суммы}
  writeln('Суммы элементов матрицы A по строкам:');
  write('[ ');
  for i:=1 to str do
    write(b[i],' ');
  writeln(']');
end.

uses
  crt;
type
  MyArr=array [1..15, 1..20]of integer;
{ïðîöåäóðà ââîäà}
procedure Writing(var a:MyArr;const str,col:integer);
var
  i,j:integer;
begin
  for i:=1 to str do
    for j:=1 to col do
      a[i,j]:=random(8)-4
end;
{ïðîöåäóðà âûâîäà}
procedure Print(a:MyArr; str,col:integer;ch:char);
var
  i,j:integer;
begin
  writeln('Ìàòðèöà ',ch,':');
  for i:=1 to str do
  begin
    for j:=1 to col do
      write(a[i,j]:2,' ');
    writeln
  end;
end;
{ïðîöåäóðà âûâîäà ñóììû êàæäîé ñòðîêè}
procedure P(a:MyArr; str,col:integer; ch:char);
var
  i,j,summ:integer;
  b:array[1..15]of integer;
begin
  {íàõîäèì ìàêñèìóì êàæäîé ñòðîêè}
  for i:=1 to str do
  begin
    Summ:=0;
    for j:=1 to col do
      if a[i,j]>0 then
        inc(summ,a[i,j]);
      b[i]:=summ
  end;
  {âûâîäèì ñóììû}
  writeln('Ñóììû ýëåìåíòîâ ìàòðèöû ',ch,' ïî ñòðîêàì:');
  write('[ ');
  for i:=1 to str do
    write(b[i],' ');
  writeln(']');
end;
var
  a,b:MyArr;
{îñíîâíàÿ ïðîãðàììà}
begin
  clrscr;
  Writing(a,10,20);
  Print(a,10,20,'A');
  Writing(b,15,10);
  Print(b,15,10,'B');
  P(a,10,20,'A');
  p(b,15,10,'B')
end.