Нужно в строке удалить слова, состоящие из букв заданного слова

const
   delims = [' ','.',',','!','?'];
var
   word: set of char;
   a,s: string;
   k,l,j,i,bow: integer;
begin
   writeln ('Введите слово ');
   readln (a);
   writeln ('Введите строку ');
   readln (s);
   for j:=1 to length(a) do
      word:=word+[a[j]];
   i:=1;
   while i<=length(s) do
      if s[i] in delims then
         inc(i)
      else
      begin
         bow:=i;
         while (i<=length(s)) and not(s[i] in delims) do
            inc(i);
         k:=0;
         for l:=bow to i-bow do
            if not(s[l] in word) then
               k:=1;
         if k=0 then
         begin
            delete(s,bow,i-bow);
            i:=bow;
         end
         else
         begin
            insert(' '+copy(s,bow,i-bow),s,i);
            i:=i+1+i-bow;
         end;
      end;
   writeln(s);
   readln;
end.

uses
  crt;
const
  Dividers=[' ',',','.',';',':','-','=','+'];{äîïèñàòü íóæíûå}
var
  s,w,temp:string;
  i,j:integer;
  fl:boolean;
begin
  clrscr;
  ReadLn(w,s);//÷èòàåì ñíà÷àëà ñëîâà, ïîòîì ñòðîêó
  {èùåì ñëîâà è ïðîèçâîäèì íàä íèìè íóæíûå äåéñòâèÿ}
  i:=0;
  temp:='';//íåçàáûâàåì îïóñòîøèòü âðåìåííóþ ïåðåìåííóþ ïåðåä íà÷àëîì ïîèñêà ñëîâ
  repeat
    inc(i);//óâåëè÷èâàåì íà 1
    if not (s[i] in Dividers) then//åñëè î÷åðåäíîé ñèìâîë íå ïðèíàäëåæèò ìíîæåñòâó ðàçäåëèòåëåé
      temp:=temp+s[i];//òîãäà äîáàâëÿåì ýòîò ñèìâîë ê âðåìåííîé ïåðåìåííîé
    if ((s[i] in Dividers) or (i=Length(s))) and (temp<>'') then//åñëè æå î÷åðåäíîé ñèìâîë ïðèíàäëåæèò ìíîæåñòâó ðàçäåëèòåëåé ÈËÈ ýòî ïîñëåäíèé ñèìâîë â ñòðîêå
    begin//è ïðè ýòîì íàøà âðåìåííàÿ ïåðåìåííàÿ íå ïóñòà
      fl:=true;//ïðåäïîëîæèì ÷òî íàéäåííîé ñëîâî ñîñòîèò òîëüêî èç áóêâ çàäàííîãî
      j:=1;
      repeat
        inc(j);
        if pos(temp[j],w)=0 then//åñëè î÷åðåäíîé ñèìâîë âðåìåííîé ïåðåìåííîé ÍÅ ñóùåñòâóåò â çàäàííîì ñëîâå
          fl:=false//òîãäà ìåíÿåì ôëàæîê
      until
        not fl or (j=Length(temp));
      if fl then//åñëè ñëîâî ñîñòîèò èç áóêâ çàäàííîãî
      begin
        Delete(s,pos(temp,s),Length(temp));
        Dec(i,Length(temp))
      end
      else//èíà÷å
      begin
        Insert(' '+temp+' ',s,i+1);
        Inc(i,Length(temp)+1);
      end;
      temp:='';//íå çàáûâàåì îïóñòîøàòü âðåìåííóþ ïåðåìåííóþ, ò.ê. íàì ìîæåò áûòü åùå íàäî èñêàòü
    end;
  until
    i=Length(s);
  {ïðîáåãàåìñÿ ïî ñòðîêå è óäàëÿåì ïîâòîðû ðàçäåëèòåëåé åñëè îíè åñòü}
  for i:=1 to Length(s)-1 do
    if (s[i] in Dividers) and (s[i+1] in Dividers) then
      Delete(s,i,1);
  writeln(TrimLeft(s))
end.