wenn es wirklich nur 5 werte sind, dann kannst du es so machen (ungetestet)
Delphi-Quellcode:
const
arr: array[0..4] of Integer = (1, 2, 3, 4, 2);
var
x, y: Integer;
pairs: Boolean;
begin
pairs := False;
for x := Low(arr) to High(arr) do
for y := Low(arr) to High(arr) do
if(arr[x] = arr[y]) and (x <> y) do
pairs := True; //Hier könnte man die Werte auch noch abspeichern, usw....
end;
Ansonsten, wenn es viel mehr werte sind, kannst du die werte erstmal sortieren (
Tutorial: Sortier-Algorithmen I + II) und dann die liste durchgehen und schauen, ob der nächste wert gleich dem aktuellen ist