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

CLS
INPUT "vvedite a$"; a$
INPUT "vvedite b$"; b$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 2) = "ka" THEN k1 = k1 + 1
NEXT
FOR i = 1 TO LEN(b$)
    IF MID$(b$, i, 2) = "ka" THEN k2 = k2 + 1
NEXT
PRINT "a$ 'ka' ="; k1
PRINT "b$ 'ka' ="; k2