Сформировать массив из сумм положительных элементов соответствующих строк матрицы

program matrix;
uses crt;
const n=3;m=3;sum1=0;
var a:array[1..99,1..99] of real;
b:array[1..99] of real;
i,j:integer;
pol:real;
begin
      for i:=1 to n do
       for j:=1 to m do
       begin
        WriteLn('Vvedite element a[',i,j,']');
        readln(a[i,j]);
       end;
       begin
        for i:=1 to n do
        for j:=1 to m do
        if     a[i,j]>0 then
        b[1]:=sum1+pol ;
         pol:=a[i,j];
        i:=i+1;
        j:= j+1;
end;
write(b[i],' ');
readln;
readln;
end.

const
  n=3;
var
  a: array[1..n,1..n] of integer;
  b: array[1..n] of integer;
  i,j: integer;
begin
  for i:=1 to n do
  begin
    b[i]:=0;
    for j:=1 to n do
    begin
      write('A[',i,',',j,'] = ');
      readln(a[i,j]);
      if a[i,j]>0 then b[i]:=b[i]+a[i,j];
    end;
  end;
  writeln('Массив B: ');
  for i:=1 to n do write(b[i],' ');
  readln;
end.

Const n=3;
Var A:array[1..n,1..n] of integer;
    B:array[1..n] of integer;
    i,j,s:integer;
Begin
    For i:=1 to n do
     For j:=1 to n do
      Begin
       write('A[',i,',',j,']= ');readln(A[i,j]);
      End;
    writeln('Введенная матрица');
    For i:=1 to n do
     Begin
      For j:=1 to n do 
       write(A[i,j]:4);
      writeln;
     End;
    write('Массив B:');
    For i:=1 to n do
     Begin
      s:=0;
      For j:=1 to n do
       if A[i,j]>0 then s:=s+A[i,j];
      B[i]:=s;
      write(B[i]:4);
     End;
    readln;
End.