помогите слабой по програмированию (в паскале)

[Vitas1234]

В тексте содержащем, несколько (много) предложений, найти все вхождения заданного(слово задается в теле программы) слова и вывести все включающие его предложения. Принять, что каждое предложение заканчивается точкой.

[WOLFak]

я вот не знаю что значит распечатать

[WOLFak]

и еще как будет вводится?
одной строчкой?)))

[WOLFak]

var
 s,s1,slovo:string;
begin
 readln(s);
 readln(slovo);
 while pos('.',s)<>0 do
  begin
   s1:=copy(s,1,pos('.',s));
   if pos(slovo,s1)<>0 then
    writeln(s1);
   delete(s,1,pos('.',s));
  end;
end.