Задача: удалить из массива все элементы, встречающиеся в нем 2 раза. Как лучше написать поиск?

{...}
for i := 1 to n do 
   for j := i+1 to n-1 do begin
      if arr[i] = arr[j] then begin
      end;
   end;
{...}

Ровно 2 раза? Или как минимум 2 раза?

Ровно 2 раза

for i:=1 to count do
begin
s:=0;
for j:=1 to count do
if A[i]=A[j] then
s:=s+1;
if s = 1 then
вот так вроде... хоть и поздно=) но может кому понадобицо..