Дана матрица B={by}5×4. Вычислить произведение положительных элементов каждой строки матрицы- Pascal(Паскаль)

program mas;
uses crt;
var b:array[1..5,1..4] of integer;
s,i,j:integer;
begin
randomize;
for i:=1 to 5 do
begin
for j:=1 to 4 do
begin
b[i,j]:=random(20)-10;
write(b[i,j]:4);
end;
writeln;
end;
for i:=1 to 5 do
begin
s:=1;
for j:=1 to 4 do
if b[i,j]>0 then
s:=s*b[i,j];
writeln('proizvedenie',I, 'stroki',s);
end;
readln;
end.