Записать в другой файл только те строки, в которых содержится ключевое слово

const rz=[' ',',','.','?','!'];//разделители слов, можно добавить
var f:text;
    s,s1:string;
    k,p:byte;
begin
write('Введите слово для поиска s=');
readln(s1);
assign(f,'text.txt');//файл в папке с програмой
reset(f);
writeln('Строки в которых есть слово ',s1);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  p:=pos(s1,s);
  if(p>0)and((p=1)or(s[p-1] in rz))
  and((p+length(s1)=length(s)+1)or(s[p+length(s1)]in rz)) then
   begin
    writeln(s);
    k:=1;
   end;
 end;
close(f);
if k=0 then write('Таких строк нет');
end.

const rz = [#0..#255]-['0'..'9','A'..'Z','a'..'z','А'..'Я','а'..'п','р'..'я','Ё','ё'];

const rz=[' ',',','.','?','!'];//разделители слов, можно добавить
var f,g:text;
    s,s1:string;
    k,p:byte;
begin
write('Введите слово для поиска s=');
readln(s1);
assign(f,'text.txt');//файл в папке с программой
reset(f);
assign(g,'stroki.txt');
rewrite(g);
writeln(g,'Строки в которых есть слово ',s1);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  p:=pos(s1,s);
  if(p>0)and((p=1)or(s[p-1] in rz))
  and((p+length(s1)=length(s)+1)or(s[p+length(s1)]in rz)) then
   begin
    writeln(g,s);
    k:=1;
   end;
 end;
close(f);
if k=0 then write(g,'Таких строк нет');
close(g);
end.