Вводится число N. Нужно среди натуральных чисел найти такое число, у которого номер N среди палиндромных чисел — QBasic(Бейсик)

INPUT "vvedite nomer palindroma ", n
DIM a(10)
DO
    k = k + 1
    s = k
    m = 0
    f = 0
    DO
        m = m + 1
        a(m) = s MOD 10
        s = s \ 10
    LOOP UNTIL s = 0
    FOR i = 1 TO m \ 2
        IF a(i) <> a(m - i + 1) THEN f = 1
    NEXT
    IF f = 0 THEN kol = kol + 1
LOOP UNTIL kol = n
PRINT k