Извините, не знаю, что Вам там "говорили решать", зачем тут вспомогательные массивы да подпрограммы, но самое простое решение — вот:
Код:
Const
N=8;
Var
A:Array [1..N,1..N] of Integer;
i,j,i1,j1:Byte;
M:Integer;
Begin
Randomize;
for i:=1 to N do
begin
for j:=1 to N do
begin
A[i,j]:=Random(100);
write(A[i,j]:5);
end;
writeln;
end;
Writeln;
M:=0;
for i1:=1 to N do
for j1:=1 to N do
for i:=1 to N do
for j:=1 to N do
if (A[i,j]=A[i1,j1]) and ((i<>i1) or (j<>j1)) and (A[i,j]>M) then M:=A[i,j];
Writeln('Max = ',M);
Readln
End.
Это, правда, Free Pascal, но, думаю, сойдёт. Можно последний Readln убрать.