Найти максимальный элемент, встречающийся в матрице более одного раза

program z2;
uses crt;
var
mas: array[1..100,1..100] of real;
maxi, maxj, i, j, k, p, n, m: byte;
f1, f2: boolean;
 
begin
clrscr;
write('kol-vo strok v massive - ');
readln(n);
write('kol-vo stolbcov v massive - ');
readln(m);
   randomize;
   for i:=1 to n do
   begin
   for j:=1 to m do
   begin
   mas[i,j]:=random(64)-32;
   writeln(mas[i,j]:4:0);
   writeln;
   end;
   end;
 
f1:=false;
for i:=1 to n do
for j:=1 to m do
begin
k:=i;
p:=j+1;
f2:=false;
          while (k<=n) and (f2=false) do
          begin
               while (p<=m) and (f2=false) do
               begin
               if (mas[i,j]=mas[k,p]) then
               f2:=true;
               inc(p);
               end;
          inc(k);
          end;
    if (f1) and (f2) and (mas[i,j]>mas[maxi,maxj]) then
    begin
    maxi:=i;
    maxj:=j;
    end;
end;
if (f1=false) and (f2) then
begin
maxi:=i;
maxj:=j;
f1:=true;
end;
 
writeln;
if (f1) then
write('max povtor. element = ', mas[maxi,maxj]:4:0)
else
write('net povtor. elementov');
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,m,i,j,k,f,p,imx,jmx:byte;
    mn,mx:integer;
begin
randomize;
repeat
write('Количество строк=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(64)-32;
     write(a[i,j]:4);
    end;
   writeln;
 end;
{находим минимум в матрице}
mn:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]<mn then  mn:=a[i,j];
{цикл поиска первого макс > 1 раза}
k:=0;
f:=0;
p:=0;
repeat
{находим максимальный}
mx:=a[1,1];imx:=1;jmx:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j]>mx then
   begin
    mx:=a[i,j];
    imx:=i;
    jmx:=j;
   end;
{ищем равный ему}
for i:=1 to m do
for j:=1 to n do
if (a[i,j]=mx)and((i<>imx)or(j<>jmx))and(a[i,j]<>mn-1) then
 begin
  k:=1;
  f:=1;
 end;
if k=0 then{если не нашли}
  begin
   a[imx,jmx]:=mn-1;{меняем макс элемент на число меньше минимума}
   p:=p+1;{считаем число попыток}
  end;
until (k=1)or(p=m*n-1);{если нашли, или остался
только 1 непроверенный элемент, заканчиваем}
if f=0 then write('В матрице нет двух одинаковых элементов!')
else write('Наибольший, встреченный более 1 раза=',mx)
end.

for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    mas[i,j]:=random(64)-32;
    write(mas[i,j]:4:0);
   end;
  writeln;
 end;