В текстовом файле D.TXT определить количество строк, содержащих слово 'RUN'

const rz=[' ',',','.','?','!'];//разделители, можно добавить
var f:text;
    s:string;
    k,p:integer;
begin
assign(f,'d.txt');//файл в папке с программой
reset(f);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  p:=pos('run',s);
  //если есть сочетание run и перед ним и после него  разделитель
  //или оно первое или последнее в строке
  if(p>0)and((s[p-1] in rz)or(p=1))and((p+2=length(s))or(s[p+3] in rz)) then inc(k);
 end;
close(f);
write('Количество строк со словом run=',k)
end.

const rz=[' ',',','.','?','!'];//разделители, можно добавить
var f:text;
    s:string;
    k,p:integer;
begin
assign(f,'d.txt');//файл в папке с программой
reset(f);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  p:=pos('run',s);
  //если есть сочетание run и перед ним и после него  разделитель
  //или оно первое или последнее в строке
  if(p>0)and((s[p-1] in rz)or(p=1))and((p+2=length(s))or(s[p+3] in rz)) then inc(k);
 end;
close(f);
write('Количество строк со словом run=',k)
end.

if(p>0)and((p=1)or(s[p-1] in rz))and((p+2=length(s))or(s[p+3] in rz)) then inc(k);