Найти наименьший элемент массива и его индекс - QBasic

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

В одномерном массиве из N чисел найти наименьший элемент и его номер. блок-схема и программа нужна

Помогите пожалуйста, кто может!

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

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

CLS
RANDOMIZE TIMER
INPUT "N = "; n
DIM A(n) AS INTEGER
 
FOR i = 1 TO n
   A(i) = 40 * RND - 20
   PRINT A(i);
NEXT i
PRINT : PRINT
 
min = A(1)
im = 1
 
FOR i = 1 TO n
   IF min > A(i) THEN
      min = A(i)
      im = i
   END IF
NEXT i
 
PRINT "MIN ="; " A("; im; ") ="; min
END

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

Задается переменная n, которая представляет собой размер массива.
Создается массив A размером n.
В цикле заполняются значения элементов массива A случайными числами от 40 до 20 с шагом -20.
Выводится на экран весь массив A.
Находится минимальное значение в массиве A, и запоминается его индекс.
Выводится на экран значение минимального элемента массива A и его индекс.