Найти максимальное число среди повторяющихся элементов массива

const n=6;
var a:array [1..n,1..n] of integer;
    max:integer; b:boolean;
    i,j,i1,j1:byte;
begin
  randomize; max:=0;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=random(20)+1; write(a[i,j]:3,' ');
    end;
    writeln;
  end;
  for i:=1 to n do begin
    b:=false;
    for j:=1 to n do begin
      for i1:=1 to n do
        for j1:=1 to n do
          if (i<>i1) and (j<>j1) and (a[i,j]=a[i1,j1]) then b:=true;
      if b then if a[i,j]>max then max:=a[i,j];
    end;
  end;
  write('Максимальный среди повторяющихся: ',max);
end.

      k:=0;
      for i1:=1 to n do for j1:=1 to n do
        if a[i,j]=a[i1,j1] then Ink(k);
      if (k>1) and (max<a[i,j]) then max:=a[i,j];

      k:=0;
      for i1:=1 to n do for j1:=1 to n do
        if a[i,j]=a[i1,j1] then begin
          Ink(k); if k>1 then goto Done; { единственный заслуживающий внимания повод использовать goto }
        end;
Done:
      if (k>1) and (max<a[i,j]) then max:=a[i,j];

  i1:=0; k:=2;
  while (k>0) and (i1<n) do begin
    Inc(i1); j1:=0;
    while (k>0) and (j1<n) do begin
      Inc(j1); if a[i,j]=a[i1,j1] then Dec(k);
    end;
  end;
  if (k=0) and (max<a[i,j]) then max:=a[i,j];

  if max>0 then WriteLn('Максимальный из повторяющихся ',max)
  else WriteLn('Повторяющихся нет');

const n=6;
var a:array [1..n,1..n] of integer;
    max:integer; c:set of integer;
    i,j:byte;
begin
  randomize; max:=0;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=random(20)+1; write(a[i,j]:3,' ');
      if not (a[i,j] in c) then include(c,a[i,j]) else
        if a[i,j]>max then max:=a[i,j];
    end;
    writeln;
  end;
  write('Максимальный среди повторяющихся: ',max);
end.