Составить программу вцычисления количества букв "А" в предложении

Программа составлена для английских букв а. Если нужны русские, замените ими английские буквы в кавычках.

INPUT "vvedite predlojenie ",a$
FOR i=1 TO LEN(a$)
IF MID$(a$,i,1)="a" OR MID$(a$,i,1)="A"THEN n=n+1
NEXT
PRINT "bukv a=";n

автор: кот Бегемот