Найти наибольшее из чисел, встречающееся в данной матрице более одного раза. задание выполнить с использованием подпрограммы — Pascal(Паскаль)

const
  n= 15;
type
  tElement= integer;
  tArray= array [1..n] of tElement;
 
var
  a,b: tArray;
  i: integer;
 
procedure SortDown(var a: tArray);
var
  i,j: integer;
  e: tElement;
begin
  for i:=2 to n do
    for j:=n downto i do
      if a[j-1]<a[j] then begin
        e:= a[j];
        a[j]:= a[j-1];
        a[j-1]:= e
      end
end;
 
 
begin
  Randomize;
  for i:=1 to n do a[i]:= Random(100);
  for i:=1 to n do write(a[i]:3);
  writeln;
  SortDown(a);
  for i:=2 to n do
    if a[i]=a[i-1] then begin
      writeln('максимальный из повторяющихся элементов есть ',a[i]);
      readln;
      Halt
    end;
  writeln('в массиве нет повторяющихся элементов');
  readln
end.