Дан массив из 10 целых чисел. Создать новый массив , записанный в обратном порядке — QBasic(Бейсик)

DIM a(10), b(10) AS INTEGER
FOR i = 1 TO 10
    INPUT "Vvedite chislo ", a(i)
NEXT
PRINT "massiv"
FOR i = 1 TO 10
    PRINT a(i);
NEXT
PRINT
FOR i = 1 TO 10
    b(i) = a(11 - i)
NEXT
PRINT "novyj massiv"
FOR i = 1 TO 10
    PRINT b(i);
NEXT