Заменить элементы строк матрицы по правилу

var
  a: array[1..100,1..100] of integer;
  i,j,n,m: byte;
  p: integer;
Begin
...
for i:=1 to m do
  begin
    p:=a[i,1];
    for j:=2 to n do
      begin
        p:=p*a[i,j];
        a[i,j]:=p;
      end;
    end;
...
End.

for i:=1 to m do
  for j:=2 to n do
    a[i,j]:=a[i,j-1]*a[i,j]

var
  a: array[1..100,1..100] of integer;
  i,j,n,m: byte;
Begin
  randomize;
  readln(m,n);
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(41)-20;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  writeln;
  for i:=1 to m do
    begin
      write(a[i,1]:4);
      for j:=2 to n do
        begin
          a[i,j]:=a[i,j]*a[i,j-1];
          write(a[i,j]:4);
        end;
      writeln;
    end;
  readln
End.