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

[Ivs]

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

[Ivs]

идея конечно неплохая но к сожалению не без ошибок я её тут тебе подредактировал
вот что получилось(вроде бы работает):

Код

var
  str,np,fword,ep,word : string;
  p   : integer;

begin
  write('Введите строку -> ');
  readln(str);
  write('Введите слово -> ');
  readln(word);
  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')) then
      begin
         fword := fword+ep[1];
         delete(ep, 1, 1);
      end
      else
      begin
          delete(ep,1,1);
          fword:='';
      end;
      if fword=word then
      begin
          writeln(np);
          fword := '';
      end;
      end;
 end;
 readln;
end.