PASCAL..Randomizes two 3x3 arrays and indicates the numbers whih are common in both the arrays

{
Description: Randomizes two 3x3 arrays and indicates the numbers whih are common in both the arrays otherwise an cross 'x' is shown instead.
}

program randomarray;
uses crt;


type
arr1 = array [1..3,1..3] of integer;

var
a1, a2, a3 : arr1;
i, j : integer;

procedure initialise1(var a_1 : arr1);
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
a_1[i][j]:=random(10);
end;
end;
end;

procedure initialise2(var a_2 : arr1);
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
a_2[i][j]:=random(10);
end;
end;
end;

procedure output1(var a_1 : arr1);
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a_1[i][j],' ');
end;
writeln;
end;
end;

procedure output2(var a_2 : arr1);
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a_2[i][j],' ');
end;
writeln;
end;
end;

procedure same(var a_1, a_2 : arr1);
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
if a_1[i][j] = a_2[i][j] then
write(a_1[i][j],' ')
else
write('x ');
end;
writeln;
end;
end;

begin
clrscr;
randomize;
initialise1(a1);
initialise2(a2);
output1(a1);
writeln;
output2(a2);
writeln;
same(a1,a2);
readln;
end.