Вывести на печать элементы целочисленных матриц A(n,m) и B(n,m), кратные 3.

Program prim;
uses crt;
n,m,a1:integer;
cоnst n=3
m=10
type mas= var A:array [1..n,1..m] of real;
var A:mas;
var B:mas;
procedure kratnost(a1:mas)
begin
for i:=1 to n do
for j:=1 to m do
if a1[i,j] mod 3=0
then
writeln (a1[i,j])
end;
begin
write('введите элементы массива');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
kratnost(a);
readln(b[i,j]);
kratnost(b);
end.