Из одной матрицы сформировать другую - QBasic

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

задание: Формирование из выходного массива второго двумерного массива элементы которого столбцы взятые подряд с номера N по номер M. N и M вводятся, N<M пробовал реализовать не как не получается может есть у кого идеи ?

CLS
INPUT "enter array size: "; q, p
DIM a(q, p)
FOR i = 1 TO q
        FOR j = 1 TO p
                PRINT "a("; i; ","; j; ")="
               INPUT a(i, j)
        NEXT j
NEXT i
INPUT "enter N & M, N < M "; n, m
newp = (m - n) + 1
DIM newA(q, newp)
FOR i = 1 TO q
        FOR j = 1 TO newp
                FOR y = n TO m
                       newA(i, j) = a(i, y)
                NEXT y
        NEXT j
NEXT i
FOR i = 1 TO q
        FOR j = 1 TO newp
                PRINT newA(i, j)
        NEXT j
NEXT i
END

Решение задачи: «Из одной матрицы сформировать другую»

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

FOR i = 1 TO q
        FOR j = 1 TO m
                newA(i, j) = a(i, j + n)
        NEXT j
NEXT i

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

В данном коде происходит перенос элементов из одной матрицы в другую с помощью двух циклов for. Первый цикл идет по строкам первой матрицы (от 1 до q), а второй цикл идет по столбцам первой матрицы (от 1 до m). Внутри циклов происходит присваивание элементам второй матрицы (newA), которые располагаются в строке i, столбце j, значения элемента первой матрицы (a), который располагается в строке i, столбце j+n. После завершения второго цикла, программа переходит к следующему элементу первой матрицы (i+1) и повторяет процедуру.