Найти в каждом массиве произведение компонентов, кратных 3

Program gray;
type mas=array[1..10,1..10] of integer;
var i,j:integer;
 
procedure mass(var a:mas; n,m:integer); // äëÿ ñîçäàíèÿ ìàññèâà
begin
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(121)-60;
end;
 
procedure en(var a:mas);    // äëÿ âûâîäà ìàññèâà
var n,m:integer;
begin
writeln('ìàññèâ:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5);
    writeln;
   end;
  end;
 
procedure pro(var a:mas; p:integer);  // äëÿ íàõîæäåíèÿ ïðîèçâåäåíèå ÷èñåë êðàòíûõ 3
var n,m:integer;
begin
p:=1;
for i:=1 to 10 do
for j:=1 to 10 do
  if a[i,j] mod 3 = 0 then
  p:=p * a[i,j];
  writeln('p= ',p);
end;
 
var a,b:mas;
 p1,p2:integer;
  begin
mass(a, 3,4);
en(a);
pro(a,p1);
 
mass(b, 5,2);
en(b);
pro(b,p2);
If p1>p2 then writeln('p1 >p2')
else writeln('p2 > p1');
End.

var a,b:mas;
 p1,p2:integer;
  begin
mass(a, 3,4);
en(a);  <------------------- в этой строке
pro(a,p1);

Program gray;
type mas=array[1..10,1..10] of integer;
var i,j:integer;
 
procedure mass(var a:mas; n,m:integer); // для создания массива
begin
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(121)-60;
end;
 
procedure en(var a:mas);    // для вывода массива
var n,m:integer;
begin
writeln('массив:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5);
    writeln;
   end;
  end;
 
procedure pro(a:mas; n,m:integer; var  p:integer);  // для нахождения произведение чисел кратных 3
begin
p:=1;
for i:=1 to n do
for j:=1 to m do
  if a[i,j] mod 3 = 0 then
  p:=p * a[i,j];
  writeln('p= ',p);
end;
 
var a,b:mas;
 p1,p2:integer;
  begin
mass(a, 3,4);
en(a);
pro(a,3,4,p1);
 
mass(b, 5,2);
en(b);
pro(b,5,2,p2);
If p1>p2 then writeln('p1 >p2')
else writeln('p2 > p1');
End.