Найти индекс элементов масива, наиболее близкого к даному числу - QBasic

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

дан масив состоящий из 17 элементов .найти индекс элементов масива, наиболее близкого к даному числу результат распечатать в виде: масив заданое число элемент индекс. я объявляю масив а что делать дальше не знаю помогите составить программу в басике

rem 
n=17 
dim a(n) 
for i=1 to n

а что дальше делать не знаю

Решение задачи: «Найти индекс элементов масива, наиболее близкого к даному числу»

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

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

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

Объявляется массив a(17) для хранения 17 чисел.
С помощью цикла FOR и команды RANDOMIZE TIMER заполняется массив a(i) = INT(RND * 20) - 10 случайными числами от -10 до 10 с шагом 20.
Пользователю предлагается ввести число n.
Выводится исходный массив a(i).
Находится минимальное расстояние между числом n и элементами массива a(i) с помощью цикла FOR и условия IF.
Выводится ближайшее к числу n число из массива a(i) и его номер nmin.