составить программу вычисления суммы тех положительных элементов двумерного массива А,которые стоят в строках ,не содержащих нулевых элементов — Pascal(Паскаль)

Program help;
Var a:array [1..20,1..20] of integer;
    b:array [1..20] of boolean;
    i, j, sum, n, m:integer;
Begin
     readln(n, m);
     for i := 1 to n do
         for j := 1 to m do
             a[i,j] := random(10)-5;
     for i := 1 to n do
         begin
              b[i] := false;
              for j := 1 to m do
                  if a[i,j] = 0 then b[i] := true;
         end;
 
     for i := 1 to n do
         if not b[i] then
            for j := 1 to m do
                if a[i,j] > 0 then
                   sum := sum + a[i,j];
     writeln(sum);
End.