Посчитайте количество букв К, содержащихся во всех элементах массива

Задайте символьный массив из 6 элементов. Подсчитайте количество букв К содержашихся во всех элементах массива. Выведите на экран массив и найденое количество.

DIM a$(6)
FOR i=1 TO 6
INPUT a$(i)
NEXT
 
FOR i=1 TO n
IF MID$(a$(i),i,1)="k" THEN m=m+1
NEXT
FOR i=1 TO n
PRINT a$(i)
NEXT
PRINT"kol=";m

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