Дана действительная матрица размера MxN. Определить числа В1,..,Вм, равные соответственно произведения элементов строк — Pascal(Паскаль)

const n=5;
     m=5;
var a:array[1..m,1..n]of integer;
    b:array[1..m]of integer;
    i,j,p:integer;
begin
randomize;
for i:=1 to m do
begin
    for j:=1 to n do
    begin
        a[i,j]:=random(21)-10;
        write(a[i,j]:5);
    end;
    writeln;
end;
for i:=1 to m do
begin
    p:=1;
    for j:=1 to n do
    p:=p*a[i,j];
    b[i]:=p;
    write(b[i]:8);
end;
end.