Дано натуральное число. Определить наиболее часто повторяющуюся в нем цифру и указать ее позиции в числе — QBasic(Бейсик)

INPUT "vvedite chislo ", n&
m& = n&
DIM a(10)
DO
    k = m& MOD 10
    a(k) = a(k) + 1
    m& = m& \ 10
LOOP UNTIL m& = 0
max = 0
FOR i = 0 TO 9
    IF a(i) > max THEN max = a(i): c = i
NEXT
PRINT " iskomaya cifra="; c
PRINT "pozicii:"
DO
    k = n& MOD 10
    t = t + 1
    IF k = c THEN PRINT t;
    n& = n& \ 10
LOOP UNTIL n& = 0