В тексте состоящем из русских букв и заканчивающемся точкой, подсчитайте количество согласных букв — QBasic(Бейсик)

CLS
sogl$ = "бвгджзклмнпрстфхцчшщ"
PRINT "Vvedite tekst"
INPUT a$
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = "." THEN EXIT FOR
 FOR j = 1 TO LEN(sogl$)
  IF MID$(a$, i, 1) = MID$(sogl$, j, 1) THEN k = k + 1: EXIT FOR
 NEXT j
NEXT i
PRINT "Kolvo soglasnih bukv=";k