Слова Опции

[bigglewood]

Помогите с задачкой ато не получается самому
Дана последовательность слов, слова разделяются пробелом.
Нужно вывести на экран все согласные буквы которые входят только в одно слово.

[Lapp]

Вот мое решение, оно несколько короче.

const
  c:string='bcdfghklmnpqrstvwxz';
  z:set of char=[];

var
  s:string;
  A,B,T:set of char;
  i,j:integer;

begin
  Write('Type in a line: '); ReadLn(s);
  A:=Z;
  for i:=1 to Length© do begin
    T:=Z;
    for j:=1 to Length(s) do if c[i]=s[j] then
      if c[i] in A then Include(B,c[i]) else Include(T,c[i])
    else if s[j]=' ' then begin
      A:=A+T;
      T:=Z;
    end;
    A:=A+T
  end;
  A:=A-B;
  for i:=1 to Length© do if c[i] in A then Write(c[i],' ')
end.

Любопытно, что сначала я прочел условие неверно, и написал программу, которая выдает все буквы, которые входят в слова по одному разу. Когда я собрался ее постить, я увидел ошибку. Так вот, в результате мне оказалось нужно только в одном месте заменить одну букву, чтобы решение стало соответствовать правильному условию .
Кто-нибудь может сказать, какую именно?