Найти номера элементов массива, значение которых больше заданного и записать их в массив - QBasic

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

Прошу помочь с заданием ,суть которого такова : Найти номера элементов массива А(),значение которых больше заданного и записать их в массив. Уже создал :

                    Листинг программы
                
 
                        
                          
                    
CLS
DIM A(4)
FOR i=1 TO 4
IMPUT A(4)
NEXT i
FOR i=1 TO 4
IF A(i)>7 THEN PRINT A(i)
NEXT i
END

Массив выбрал А(4) Задал значение , которого выводимые числа должны быть больше. A(i) > 7 Не могу понять,как присвоить каждому элементу номер, что бы программа выводила не числа,которые больше 7-ми,а номера этих чисел.Помогите пожалуйста дописать пару строчек в программе.

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

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

CLS
DIM A(4)
FOR i=1 TO 4
  INPUT A(i)
NEXT i
FOR i=1 TO 4
  IF A(i)>7 THEN PRINT i
NEXT i
END

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

CLS — очистка экрана
DIM A(4) — объявление массива A размером 4 элемента
FOR i=1 TO 4 — цикл для заполнения массива A значениями
1. INPUT A(i) — запрос на ввод значения для элемента массива A(i)
NEXT i — переход к следующему элементу массива
FOR i=1 TO 4 — цикл для проверки элементов массива A на условие
1. IF A(i)>7 THEN PRINT i — проверка значения элемента массива A(i) на больше 7, если условие выполняется, то выводит номер элемента
NEXT i — переход к следующему элементу массива
END — завершение программы