Дан произвольный текст. Проверить, можно ли из него составить слово «крокодил». — QBasic(Бейсик)

INPUT a$
b$ = "krokodil"
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) = "k" THEN n = n + 1
    IF MID$(a$, i, 1) = "o" THEN m = m + 1
NEXT
FOR i = 1 TO LEN(b$)
    FOR j = 1 TO LEN(a$)
        IF MID$(b$, i, 1) = MID$(a$, j, 1) THEN k = k + 1: EXIT FOR
    NEXT
NEXT
IF k = 8 AND n >= 2 AND m >= 2 THEN PRINT "yes" ELSE PRINT "no"