Delphi, список

[topside]

Всем привет, нужна помощь в создании процедуры формирования списка в Delphi. Она должна формировать список при вводе букв с клавиатуры, одновременно удаляя повторяющиеся буквы. Я написал эту процедуру сначала просто для ввода(только разбирался со списками), все работало. Потом решил сделать, чтобы во избежание повторов, повторяющиеся буквы просто не добавлялись в список, но прога не работает, можете сказать что не так?

type
  Pnt = ^T;
  T = record
    Inf: Char;
    Next: Pnt;
  end;

procedure Create(var Bas: Pnt);

var
  I: Integer;
  J: Integer;
  N: Integer;
  Ch: Char;
  A, X: Pnt;
  IsElemInList: Boolean;

begin
  WriteLn('Введите количество символов: ');
  ReadLn(N);
  WriteLn('Введите ', N, ' символов: ');

  New(A);
  New(X);
  Bas := A;
  IsElemInList := False;
  for I := 1 to N do
  begin
    if not IsElemInList then
    begin
      A := X;
      New(A^.Next);
      ReadLn(A^.Inf);
      Ch := A^.Inf;
      A := A^.Next;
      X := A;
    end;
    A := Bas;

    while A <> X do
    begin
      if A^.Inf = Ch then
      begin
        IsElemInList := True;
        Break;
      end;
      A := A^.Next;
    end;
  end;
  A^.Next := Nil;
end;

Алгоритм - я перед добавлением очередного элемента в список просматриваю все элементы до него и проверяю на наличие повтора.