Определить, сколько раз в числе встречается его максимальная цифра - QBasic

Формулировка задачи:

Помогите с решением задачи, пожалуйста Дано натуральное число. Определить, сколько раз в нем встречается максимальная цифра (например, для числа 132233 ответ равен 3, для числа 46336 - 2, для числа 12345 - 1).

Решение задачи: «Определить, сколько раз в числе встречается его максимальная цифра»

Листинг программы

CLS
 
max = 0
kolvo = 0
 
INPUT "Vvedite chislo: ", chislo$
 
FOR i = 1 TO LEN(chislo$)
 tsifra = VAL(MID$(chislo$, i, 1))
 IF tsifra > max THEN max = tsifra: kolvo = 0
 IF tsifra = max THEN kolvo = kolvo + 1
NEXT i
 
PRINT "Maksimalnaya tsifra -"; max; ", vstrechaetsya"; kolvo; "raz."

Объяснение кода листинга программы

В первой строке объявлены две переменные: max и kolvo.
Переменная max инициализируется значением 0, а переменная kolvo - значением 0.
Вторая строка запрашивает у пользователя ввод числа.
В третьей строке начинается цикл, который будет выполняться столько раз, сколько символов в введенном числе.
В каждой итерации цикла переменная tsifra получает значение очередного символа числа.
Если значение tsifra больше значения переменной max, то max присваивается значение tsifra, а переменная kolvo обнуляется.
Если значение tsifra равно значению переменной max, то к переменной kolvo прибавляется единица.
После завершения цикла выводится сообщение с максимальной цифрой и количеством её вхождений.