Дана строка символов. Определить слова, содержащие одновременно 2 указанные буквы

var s,s1:string;
    i,j,k:integer;
    a,b:char;
begin
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
writeln('Введите 2 буквы');
readln(a,b);
writeln('Слова в которых есть обе эти буквы');
s:=' '+s; //добавим пробел в начало для удобства
k:=0;
i:=1;
while i<length(s) do//идем по строке
if (s[i]<>' ')and(s[i-1]=' ') then //если не пробел, а перед ним пробел, новое слово
 begin
  s1:='';
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do //составим его
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if (pos(a,s1)>0)and(pos(b,s1)>0) then  //если есть обе буквы
   begin
    k:=1;  //фиксируем что есть такие
    writeln(s1);//выводим
   end;
  i:=i+length(s1);//перешагиваем через слово
 end
else i:=i+1; //пропускаем пробелы
if k=0 then write('Таких слов нет');
end.