Przeszukiwanie Tablic

Mam taki problem.
Mam tablice np. 10 elementową. Mam za zadanie wyrzucić z niej wszystkie
powtarzające się elementy, zagęszczając tablice do tych które pozostały. Napisałem programik ale jezeli wprowadze wiedzej niz dwa takie same elementy
to juz trzeciego nie wyrzuci.
Teraz to wyglada tak:

program znajdowanie_powtarzajacych_sie_elementow;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

const
   n=10;
var
  i,k,ile:integer;
  a:array [1..n] of integer;
begin
   Writeln('Wprowadz elementy tablicy: ');
   for i:=1 to n do
    begin
       Write('Element ',i,':');
       Readln(a[i]);
    end;
   ile:=0;
   i:=1;
  repeat
    if a[i]=a[i+1] then
      begin
        ile:=ile+1;
        k:=i;
        repeat
          a[k]:=a[k+1];
          k:=k+1;
        until k=n;

      end;
    i:=i+1;
  until i>n;
  for i:=1 to n-ile do Writeln(a[i]);
  Readln;
end.
 

pomocy! Juz nie wiem co tu zrobic. Wprowadzalem dodatkowe petle, warunki i nic.
Wiem ze to jest proste, ale zalapalem bloka i nie moge tego zrobic. [!!!]

a := MIN;
while a < MAX do
begin
  b := a + 1;
  while b <= MAX do
  begin
    if Tab[a] = Tab[b] then
    begin
      //usuń element Tab[b]
    end
    else
      Inc(b);
  end;
  Inc(a);
end;

program licz;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils;

const
    n = 10;
var
    a   :   array [1..n] of integer;
    ile :   integer;
    i,k :   integer;

procedure Wytnij(numer_elementu: integer);
var i   :   integer;

begin
    for i:=numer_elementu to n-ile-1 do
        a[i]:=a[i+1];
    inc(ile);
end;

begin
    ile:=0;
    Writeln('Wprowadz elementy tablicy: ');
    for i:=1 to n do
    begin
        Write('Element ',i,':');
        Readln(a[i]);
    end;
    i:=1;
    repeat
        k:=i+1;
        repeat
            if a[k]=a[i] then
                Wytnij(k)
            else inc(k);
        until k>n-ile;
        inc(i);
    until i>=n-ile;
    for i:=1 to n-ile do Writeln(a[i]);
    Readln;
end.