:двумерный массив а(м; n) из случайных однозначных чисел.найти произведение элементов каждой строки этого массива( в программе паскаль)

В общем виде так(выводит матрицу случайных чисел и вектор произведений их сток:
program test;
var
 A:array[1..10,1..10] of integer;
 B:array[1..10] of integer;
 i,j:integer;
begin
for i:=1 to 10 do
 begin
 B[i]:=1;
 for j:=1 to 10 do
  begin
  A[i,j]:=random(10);
  write(A[i,j],' ');

  B[i]:=B[i]*A[i,j];
  end;
 writeln;
 end;

writeln;
for i:=1 to 10 do
write(B[i],' ' );
readln;
end