Слова Опции

[bigglewood]

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

[klem4]

В общем какие-то разнолгасия .. пусть автор уточнит условие, вот мой вариант но первоначальному условию

uses crt;
const
  sogl = 'wrtpssdfghjklzxcvbnm';
var
  s : string = 'cxx xyfc xcavv';
  c : set of char = [];
  i, j, start : integer;

begin
  i := 1;
  while (i <= length(s)) do begin
    while (s[i] = ' ') do inc(i);
    if i <= length(s) then begin
      start := i;
      while (s[i] <> ' ') and (i <= length(s)) do inc(i);
      for j := start to i do
       if (pos(s[j], sogl) <> 0) then begin
         if not(s[j] in c) and (pos(s[j], copy(s, 1, pred(start))) = 0)
          and (pos(s[j], copy(s, succ(i), 255)) = 0) then
           writeln(s[j]);
         include(c, s[j]);
       end;
    end;
  end;
end.

cxx xyfc xcavv