Нужно определить минимальный элемент таблицы — QBasic(Бейсик)

|3 | -4 | 0 | 2 | -7 | 4 | 0 |

DIM a(7)
DATA 3,-4,0,2,-7,4,0
PRINT "massiv"
FOR i = 1 TO n
    READ a(i)
    PRINT a(i);
NEXT
PRINT
nmin = 1
FOR i = 1 TO n
    IF a(i) < a(nmin) THEN nmin = i
NEXT
PRINT "minimalnyj element="; a(nmin); "ego nomer="; nmin