Пользователь вводит текст. Определите процент гласных букв в этом тексте — QBasic(Бейсик)

DATA a,e,i,o,y,u
DIM a$(6)
FOR i = 1 TO 6
    READ a$(i)
NEXT
INPUT text$
FOR i = 1 TO LEN(text$)
    FOR j = 1 TO 6
        IF MID$(text$, i, 1) = a$(j) THEN k = k + 1
    NEXT
NEXT
PRINT k / LEN(text$) * 100