В массиве имеются только два одинаковых элемента. Найти их — Pascal(Паскаль)

var a:array [1..100] of integer;
     n,i,j:integer;
begin
writeln('vvedite chislo elementov  ');
read(n);//ты тут считываешь массив и само исло
writeln('vvedite massiv    ')
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]=a[j] then 
begin
writeln(i,' element i ',j);
exit;
end;
end.