bei großen arrays wäre es glaube ich sinnvoller und schneller die zahlen erst der größe nach zu sortieren und danach die liste einmal von oben nach unten durchzukucken:
Delphi-Quellcode:
for i:= 0 to Length(array)-2 do begin
if array[i] = array[i+1] then
begin
DoSomething;
end;
end;