Работа со строками

[Arkanar]

В файле 1.PAS дана строка символов. Записать в файл 2.PAS количество вхождений в строку подстроки ‘qw’. У меня не получается что то вот код.

 var
  I,K:INTEGER;
  S:STRING;
  F:TEXT;
BEGIN
  ASSIGN(F,'1.PAS');
  RESET(F);
  READ(F,S);
   k:=0;
   if s[i]='qw' then
     inc(k);
CLOSE(F);
  ASSIGN(F,'2.PAS');
  REWRITE(F);
  WRITELN(F,K:3);
  CLOSE(F);
  END.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[s-andriano]

Воспользуйтесь функцией поиска подстроки в строке pos в цикле:
- найти первое вхождение подстроки,
- удалить начальный фрагмент строки до конца найденной подстроки,
- инкрементировать счетчик.

PS. А вообще, дурной тон использовать расширение файла, предназначенное для хранения исходных текстов.