строки

[Siluet]

здравствуйте!! Помогите пож-ста с решением задачи
Водится текст(несколько предложений) и вводится слово.На печать выдать те предложения, которые содержат данные слово...

[Tkirill]

uses crt;
var
txt:array[1..100] of string;
n,i:integer;
s:string;
begin
clrscr;
write(' Количество предложений -> ');
readln(n);
for i:=1 to n do
readln(txt[i]);
writeln;
write(' Слово -> ');
readln(s);
for i:=1 to n do
 if pos(' '+s+' ',txt[i])<>0 then writeln(txt[i]);
readln;
end.

[Siluet]

Спасипа!!