Найти все слова в строке, начинающиеся на заданную букву и удалить из строки все слова, начинающиеся на заданную букву.

var
i:integer;
st:string;                             {строка  }
s:char;                                {буква   }

BEGIN
writeln('Введите строку слов:');
readln(st);
write('Введите букву: ');
readln(s);

st:=' '+st;                            {добавляем пробел в начале строки   }
repeat                       {ЦИКЛ                                    }
 i:=pos(' '+s,st);                     {ищем слово на букву s              }
 inc(i);                               {пробел не считаем                  }
 if i<>1 then                          {если слово нашли то                }
  repeat                               {цикл                               }
  write(st[i]);                        {напечатать букву найденного слова  }
  delete(st,i,1);                      {удалить эту букву                  }
  until (st[i]=' ')or(i=length(st));   {если слово кончилось то конец цикла}
 writeln;
until  i=1;                  {если больше нет найденных слов то КОНЕЦ ЦИКЛА}

writeln('st=',st);
END.