Удалить из массива все одинаковые элементы, оставив их последние вхождения

const nn=30;
var
  a: array [0..nn-1] of Integer;
  i, j, k, n: Integer;
begin
  Randomize;
  n:=nn;                               { актуальное количество элементов }
  for i:=0 to n-1 do a[i]:=Random(n div 2);      { повторы гарантированы }
  Write('A ='); for i:=0 to n-1 do Write(' ',a[i]); WriteLn;  { вывод массива }
  k:=n-1;                              { последний уже уникальный }
  for i:=n-2 downto 0 do begin         { уплотним правый хвост }
    j:=n-1; while a[i]<>a[j] do Dec(j); { проверим на повтор справа }
    if j=i then begin                   { уникальный ... }
      Dec(k); a[k]:=a[i];               { ... сохраним его справа }
    end;
  end;
  if k>0 then begin                    { были повторы }
    Dec(n,k);                           { вычтем повторы }
    for i:=0 to n-1 do a[i]:=a[i+k];    { перенесем хвост в начало }
  end;
  Write('A''='); for i:=0 to n-1 do Write(' ',a[i]); WriteLn;  { вывод массива }
  Write('Нажмите Enter...'); ReadLn;
end.