даны две матрицы целых чисел s[1..3,1..3],k[1..3,1..3],в которых имеется по 2 одинаковых числа.найти и распечатать их значения и индексы

даны две матрицы целых чисел s[1..3,1..3],k[1..3,1..3],в которых имеется по 2 одинаковых числа.найти и распечатать их значения и индексы
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.


я так сделал и не правильно что-то

0