Дан массив состоящий из 17 элементов. Найти индекс элементов массива, наиболее близкого к данному числу результат- QBasic(Бейсик)

DIM a(17)
RANDOMIZE TIMER
FOR i = 1 TO 17
    a(i) = INT(RND * 20) - 10
NEXT
INPUT "vvedite chislo ", n
PRINT "ishodnyj massiv"
FOR i = 1 TO 17
    PRINT a(i); " ";
NEXT
PRINT
PRINT "chislo="; n
min = ABS(n - a(1))
nmin = 1
FOR i = 1 TO 17
    IF ABS(n - a(i)) < min THEN min = ABS(n - a(i)): nmin = i
NEXT
PRINT "blizkiy element="; a(nmin)
PRINT "ego nomer="; nmin