program z13_9;
uses crt;
var f,g:text;
s,st:string;
BEGIN
writeln('vvedite stroky');
readln(s);
assign(f,'a:\test.txt');
assign(g,'a:\test1.txt');
reset(f);
rewrite(g);
while not eof(f) do begin
readln(f,st);
if pos(s,st)<>0 then writeln(g,st);
end;
close(f);
close(g);
readln;
END.