const n=20;
var a:array[1..n] of integer;
i,j,k:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=Random(50);
 write(a[i]:4);
 end;
writeln;
for i := 1 to n-1 do
 for j := 1 to n-i do
  if a[j] < a[j+1] then
   begin
    k := a[j]; a[j] := a[j+1]; a[j+1] := k
   end;
for i:=1 to n do write(a[i]:4);
writeln;
i:=1;
while (a[i]<>a[i+1])and(i<n-1) do inc(i);
if a[i]=a[i+1]
 then writeln('a[',i,']=','a[',i+1,']=',a[i])
 else writeln('В массиве нет повторяющихмя элементов');
end.

Пример работы программы:
   4  44  12   7   6   7  31  42  13  17   2  32  31   5  20   8  41   5   4   7
  44  42  41  32  31  31  20  17  13  12   8   7   7   7   6   5   5   4   4   2
a[5]=a[6]=31