Задачка для разминки Опции

[Ivs]

Условие: Дана строка и некоторое слово. Напечатать те предложения строки, которые содержат данное слово.   :o

[mj]

Это не проверенный алгоритм написанный прям в форуме!

Предположем что str это строка, а word это искомое слово.
var писать тоже не буду, сами догадаетесь что есть что ;)

Код

str := str+'.';
while str<>'' do
begin
 p := pos('.', str);
 np := copy(str, 1, P);
 ep := np;
 delete(str, 1, p);
 fword = '';
 while ep<>'' do
 begin
   if ((ep[1]>='A'{eng}) and (ep[1]<='Z')) or ((ep[1]>='a'{eng}) and (ep[1]<='z')) or ((ep[1]>='А'{рус}) and (ep[1]<='Я')) or ((ep[1]>='а'{рус}) and (ep[1]<='я')) or (ep[1]='Ё') or (ep[1]<='ё') then
   begin
     fword := fword+ep[1];
     delete(ep, 1, 1);
   end
   else begin
     if fword<>word then
       fword := ''
     else begin
       writeln(np);
       ep = '';
     end;
   end;
 end;
end;

Кто нить проверьте его...