Дан текст. Выяснить процентное содержание в тексте символа «#» — QBasic(Бейсик)

INPUT "vvedite text ", a$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) = "#" THEN k = k + 1
NEXT
PRINT "otvet="; k / LEN(a$) * 100