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

program borlpasc;

var
  s, sl: string;
  k, i: integer;
  f, f1: text;

begin
  assign(f, 'text.txt');
  reset(f);
  assign(f1, 'text1.txt');
  rewrite(f1);
  readln(f, s);
  k := 0;
  while not eof(f) do
  begin
    k := k + 1;
    delete(s, pos('story', s), length('story'));
  end;
  write(f1, k);
  close(f);
  close(f1);

end.