Слова Опции

[bigglewood]

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

[Pola]

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

const
  sogl: set of char = ['b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','z'];
var
  S:String;
  len,p :integer;
  res, slo, vto: set of char;
  ch: char;
begin
  writeln('Введите строку ');
  readln(S); 

  len:=Length(S); 
  p:=1;     {начнем с первого символа}
  res:=[];  {один раз}
  vto:=[];  {неск слов}

  {пропустить пробелы в начале строки}
  while (p<=len) and (S[p]=' ') do p:=p+1;

  {выделяем слова пока не конец строки}
  while (p<=len) do
  begin
    {смотрим слово до пробела или конца строки}
    slo:=[];
    while (p<=len) and (S[p]<>' ') do
    begin
      slo:=sogl*[S[p]] + slo;  {складываем согласные}
      p:=p+1;               {к следующему символу}
    end;
    
    vto:=slo*res + vto; {встречалась - запоминаем}
    res :=res + slo - vto; {те, что не встречались еще - добавляем}  {встречалась - убираем}

    {пропускаем пробелы, не выходя за пределы строки}
    while (p<=len) and (S[p]=' ') do p:=p+1;
  end;

  {вывод}
  if res=[] then writeln('нет таких')
  else
  for ch:='b' to 'z' do
   if ch in res then write(ch,' ');
  readln;
end.