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

var s, slovo : string; 
     i, position: integer; 
begin 
write('Vvedite stroky: '); readln(s);
write('Vvedite iskomoe slovo: '); readln(slovo);
 
position:=pos(slovo,S);
while position>0 do {poka est vxozdenie slova }
begin 
  delete(s, position, length(slovo));  {udaljaem iz stroki s position po dline slova}
  position:=pos(slovo,S);
end;
writeln('Poluthena stroka: ', S);
writeln('Nazmite Enter dlja vyxoda '); readln;
end.

uses crt;
const rzd=['.',',',';',':','?','!',' '];{основные разделители, можно добавить}
var s,sl:string;
    i,d:byte;
begin
clrscr;
writeln('Строка:');
readln(s);
write('Слово ');
readln(sl);
d:=length(sl);
for i:=length(s) downto 1 do
 if (copy(s,i,d)=sl){если слово}
 and((s[i-1] in rzd)or(i=1)){перед ним разделитель, или оно первое}
 and((s[i+d] in rzd)or(i+d-1=length(s))){за ним разделитель, или оно последнее}
 then delete(s,i,d); {удаляем}
write(s);
readln
end.