sprawdzanie isteniejacych elementow w tabilcy

Czesc.
Wczytuje nowe elementy do tablicy.
ale jesli napotkam na element, ktory zostal juz zapisany do tablicy, to chce go odrzucic, zeby do niej nie zostal zapisany.
jak mam to zrobic?

moj kod cos nie dziala:

               i:=i+1;
               readln(Plik, kategory);
               if i = 1 then kategorie[i]:= kategory;
               if i >=2 then
               begin
                    pom:=0;
                    for k:= 1 to i do
                    begin
                         if kategorie[k] <> kategory then
                         begin
                              inc(pom);
                              end;
                         end;
                         if pom <> i then kategorie[i]:= kategory;
               end;

Twój kod to wycięty fragment. Mogę tylko podpowiedzieć podobne rozwiązanie, jak w prostym programie losującym Liczby, który kiedyś napisałem. W nim również sprawdzam czy wylosowana wcześniej Liczba już się nie powtarza. Zaadoptuj to sobie do typu jaki używasz u siebie w tablicach. U mnie wiadomo są liczby.

//...
procedure LosujOrazPodajWyniki;
const
  {Stala okreslajaca ilosc liczb do wylosowania}
  IleLiczb = 12;
var
  Losuj : boolean;
  I, J, Liczba : integer;
  Tablica : array[1..IleLiczb] of integer;
begin
  for I := 1 to IleLiczb do
  begin
    Losuj := False;
    {Czy trwa losowanie}
    while Losuj = False do
    begin
      Losuj := True;
      {Losowanie liczby z zakresu od -15 do 15 wlacznie}
      Liczba := RandomRange(-15, 16);
      {Sprawdzenie czy libczba nie zostala wczesniej wylosowana}
      if I > 1 then
        for J := 1 to I - 1 do
          if Tablica[J] = Liczba then
            Losuj := False;
    end;
    Tablica[I] := Liczba;
  end;
  SortujRosnaco(Tablica);
  Writeln;
  Write('Wylosowano: ');
  for I := 1 to IleLiczb do
  begin
    Write((Tablica[I]));
    if I < IleLiczb then
      Write(' ');
  end;
end;