Как из двумерного массива переслать все элементы в одномерный — QBasic(Бейсик)

CLS
DIM x(5, 6), n(j)
FOR i = 1 TO 5
    FOR h = 1 TO 6
        x(i, h) = INT(RND * 31)
        j = i + h
        PRINT j;
    NEXT
NEXT