Массив Опции

[-Маша-]

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

[Altair]

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