Вычислить и запомнить произведение элементов каждой строки матрицы

uses
  crt;
const
  str=5;{количество строк}
  col=5;{количество столбцов}
var
  a:array [1..str,1..col] of integer;
  b:array[1..str]of integer;
  i,j,pr:integer;
begin
  clrscr;
  {заполняем и выыводим матрицу}
  writeln('Исходная матрица:');
  for i:=1 to str do
  begin
    for j:=1 to col do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {находим произведение каждой строки}
  for i:=1 to str do
  begin
    pr:=1;
    for j:=1 to col do
      pr:=pr*a[i,j];
    b[i]:=pr;
  end;
  {выводим вектор B}
  writeln('Массив B:');
  write('[ ');
  for i:=1 to str do
    write(b[i],' ');
  writeln(']');
end.

for i:=1 to n do
 begin
  p:=1;
  for j:=1 to m do
  p:=p*a[i,j];
  b[i]:=p;
 end;

Program min;
Uses crt;
 var b:array [1..100,1..100] of integer;
     a:array [1..100] of integer;
     i,j,n,p:integer;
begin
clrscr;
 Writeln (' vvedite razmernost matrici ');
 Readln (n);
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
writeln;
for i:=1 to n do begin
                      p:=1;
                      for j:=1 to n do
                      p:=p*b[i,j];
                      a[i]:=P;
                      end;
Writeln (' Proizvedenie elementov strok ');
for i:=1 to n do
write (a[i]:4);
Readln
end.