Элементы заданного массива перепишите в новый массив в обратном порядке - QBasic

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

есть задание на qbasic, но так как его изучал давненько и в школе, то не много не получается: Элементы заданного массива B(n) перепишите в новый массив A(n) в обратном порядке.

                    Листинг программы
                
 
                        
                          
                    
 CLS
 INPUT n
 DIM b(n)
 FOR i = 1 TO n
 b(i) = INT(201 * RND(1) - 100)
 PRINT "ќ«Ґ¬Ґ*в 1 ¬*ббЁў*", i, b(i)
 NEXT i
 DIM a(n)
 FOR i = 1 TO n
 b(i) = b(n)
 a(i) = b(i)
 PRINT "ќ«Ґ¬Ґ*в 2 ¬*ббЁў*", i, a(i)
 b(n) = b(n - i)
 NEXT i
 END

накидал такое но что то не так идет

Решение задачи: «Элементы заданного массива перепишите в новый массив в обратном порядке»

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

CLS
RANDOMIZE TIMER
INPUT K
DIM C(K), A(K), B(2 * K)
FOR I = 1 TO 2 * K
    B(I) = INT(RND * 100)
    PRINT B(I);
NEXT I
PRINT
FOR I = 1 TO 2 * K
    IF I MOD 2 = 0 THEN
        C(I / 2) = B(I)
        PRINT C(I / 2);
    ELSE
        A((I + 1) / 2) = B(I)
    END IF
NEXT I
PRINT
FOR I = 1 TO K
    PRINT A(I);
NEXT I

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

В первой строке кода используется команда CLS для очистки экрана.
Затем с помощью RANDOMIZE TIMER производится инициализация генератора случайных чисел.
В следующей строке запрашивается значение переменной K с помощью команды INPUT K.
Далее с помощью команды DIM C(K), A(K), B(2 K) создаются три массива: C, A и B. Массив B имеет размер 2 K, а массивы C и A имеют размер K.
Затем с помощью цикла FOR I = 1 TO 2 * K заполняется массив B случайными целыми числами от 0 до 100.
После этого с помощью команды PRINT выводятся все элементы массива B.
Далее с помощью цикла FOR I = 1 TO 2 * K происходит проверка каждого элемента массива B. Если I MOD 2 = 0, то элемент B(I) записывается в массив C(I / 2). Если I MOD 2 = 1, то элемент B(I) записывается в массив A((I + 1) / 2).
В конце выводятся все элементы массива A с помощью цикла FOR I = 1 TO K и команды PRINT.