Составить программу, подсчитывающую в заданной строке A$ количество слов и количество буквосочетаний «FA»- QBasic(Бейсик)

CLS
INPUT "vvedite text"; a$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 2) = "fa" THEN k = k + 1
NEXT
PRINT k

Тестирование выполнено в программе QB64 ( Скачать )