Случайным образом вводится m и n, необходимо вывести произведение строк, вывести исходный и преобразованный массив — Pascal(Паскаль)

uses crt;
const max=10;
var a:array[1..max,1..max] of integer;
    m,n,i,j:byte;
    p:longint;
begin
clrscr;
randomize;
m:=random(max-1)+2;
n:=random(max-1)+2;
writeln('Массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(5)+1;
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
writeln('Произведения в строках:');
for i:=1 to m do
 begin
  p:=1;
  for j:=1 to n do
  p:=p*a[i,j];
  writeln('Строка ',i,' = ',p);
 end;
readln
end.