даны две матрицы целых чисел..

program lb9_2;
uses crt;
type mass=array[1..3,1..3] of integer;
const
s:mass=((1,2,6),(9,4,5),(6,7,3));
k:mass=((1,2,8),(3,4,5),(6,7,8));
var i,j,n,m,r:integer;
{-----------------------------------------}
procedure sravn(b:mass);
{var i,j,n,m,r:integer; }
begin
for i:=1 to 3 do
for j:=1 to 3 do
for n:=1 to 3 do
for m:=1 to 3 do
begin
if b[i,j]=b[n,m] then r:=b[i,j];
end;
end;
{------------------------------------------}
begin
clrscr;
 
sravn(s);
writeln(r,m,n,i,j);
 
sravn(k);
write(r,i,j,m,n);
end.

program lb9_2;
uses crt;
type mass=array[1..3,1..3] of integer;
const
s:mass=((1,2,3),(4,5,6),(7,8,0));
k:mass=((22,3,34),(22,233,12),(11,11,1));
var i,j,n,m,r:integer;
{-----------------------------------------}
procedure sravn(b,p:mass);
{var i,j,n,m,r:integer; }
begin
for i:=1 to 3 do
for j:=1 to 3 do
for n:=1 to 3 do
for m:=1 to 3 do
    if b[i,j]=p[m,n] then
    begin
    r:=b[i,j];
    writeln('Значение=',r , ' s[',i,',',j,']',' k[',m,',',n,']');
       end;
end;
{------------------------------------------}
begin
clrscr;
sravn(s,k);
readln;
end.

program lb9_2;
uses crt;
type mass=array[1..3,1..3] of integer;
const
s:mass=((2,7,3),(4,5,6),(1,8,2));
k:mass=((1,4,44),(3,5,7),(22,44,22));
var p,i,j,n,m,r:integer;
{-----------------------------------------}
procedure sravn(b:mass);
{var i,j,n,m,r:integer; }
begin
p:=0;
for i:=1 to 3 do
for j:=1 to 3 do
 
for n:=1 to 3 do
for m:=1 to 3 do
        if (b[i,j]=b[n,m]) and (i<>n) and (j<>m) and (p<1) then
        begin
        r:=b[i,j];
        p:=p+1;
        writeln('Значение=',r , ' [',i,',',j,']', ' [',3-i+1,',',3-i+1,']');
       end;
 
end;
{------------------------------------------}
begin
clrscr;
sravn(s);
sravn(k);
readln;
end.