Дан текстовый файл. Первая строка содержит n — количество строк в тексте (1 <= n <= 5). В следующих n строках задается текст. Необходимо подсчитать сколько раз встречается в тексте подстрока. - Pascal(Паскаль)

Например: входной файл:
3
home work home
class work
work homehomeho
Выходной файл:
4

var
  s,p: string;
  k,i,n: integer;
  f,f1: text;
begin
  write('задайте образец для подсчета вхождений: ');
  readln(p);
  assign(f,'text.txt');
  reset(f);
  readln(f,n);
  k:=0;
  for i:=1 to n do begin
    readln(f,s);
    while Pos(p,s)>0 do begin
      k:=k+1;
      delete(s,1,pos(p,s)+length(p)-1)
    end
  end;
  close(f);
  assign(f1,'text1.txt');
  rewrite(f1);
  write(f1,k);
  close(f1);
end.