МНожества, вывести буквы кот не входят более чем в одно слово Опции

[vadim(b)]

задание вывести все эти буквы ['q','w','e','r','t','y']которые НЕ входят более чем в одно слово,а я смог сделать чтобы выводил буквы которые входят хотябы в одно слово. Какие исправления необходимо внести??

var
str:string;
a:set of char;
i:integer;
l:char;
begin
 writeln('STR: ');
 readln(str);
 for i:=1 to length(str) do
  begin
    if str[i] in ['q','w','e','r','t','y'] then
    include(a,str[i]);
    end;
    for l:='a' to 'z' do
     if l in a then writeln(l);
     readln;

end.

[Lapp]

Извиняюсь что вмешиваюсь в разговор, я только хотел заметить vadim(b), что его программа совершенно не работает со словами (собственно, его постановка вопроса этого и не требует), даже не делит строку на слова, поэтому на вопрос:

Какие исправления необходимо внести??

- ответить практически невозможно. Лучше написать программу заново (что volvo и сделал со свойственной ему легкостью ).