Даны несколько строк. Определить сколько раз в каждой строке встречается данный символ- QBasic(Бейсик)

INPUT "vvedite kol-vo strok ", n
DIM a$(n)
INPUT "vvedite simvol ", b$
FOR i = 1 TO n
    INPUT "vvedite stroku ", a$(i)
NEXT
FOR i = 1 TO n
    k = 0
    FOR j = 1 TO LEN(a$(i))
        IF MID$(a$(i), j, 1) = b$ THEN k = k + 1
    NEXT
    PRINT "stroka nomer"; i; "kolicestvo simvolov "; b$; "="; k
NEXT