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

[Ivs]

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

[Ivs]

а вот мой способ, он не содержит стандартных паскалевских функции, здесь все делается с помощю циклов:

Код

var
  s,t,x,z:string;
  i,j:integer;
begin
  write('Введите строку -> ');
  readln(s);
  write('Введите предложение -> ');
  readln(x);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>'.') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     j:=1;
     while j<=length(t) do
     begin
      z:='';
      while (t[j]<>' ') and (j<=length(t)) do
      begin
         z:=z+t[j];
         j:=j+1;
      end;
      if x=z then writeln(t);
      j:=j+1;
     end;
     i:=i+1;
  end;
  readln;
end.

в общем то это легкая задача (хотя в учебнике одна из последних) ну она и бала то для разминки......