Дана строка.подсчитать сколько раз в нее входит группа букв «абв»- QBasic(Бейсик)

CLS
INPUT "Vvedite stroku "; s$
k = 0
FOR i = 1 TO LEN(s$)
    IF (i + 2 <= LEN(s$)) THEN
        IF MID$(s$, i, 3) = "абв" THEN k = k + 1
    END IF
NEXT
PRINT "gruppa bukv абв vhodit "; k; " raz"
END

CLS
INPUT "Vvedite stroku "; s$
k = 0
FOR i = 1 TO LEN(s$) - 2
    IF MID$(s$, i, 3) = "абв" THEN k = k + 1
NEXT
PRINT "gruppa bukv абв vhodit  "; k; " raz"