[lmikle]

Код:

for i := High(a) downto Low(a)+1 do
  for j := i - 1 downto Low(a) do
    if a[i] = a[j] then 
      begin
        a[i] := 0;  // Ну или как ты там собираешься удалять.
        break;
      end;

можно еще сделать копированием - создавать новый массив, при этом вставлять в него только те элементы, которых внем еще нет.