Составить из двух массивов один, разместив элементы произвольным образом

OPTION BASE 1
DEFINT A-Z
DIM i, j, k, X(5), Y(7), N(12), Z(12), Temp(12), Min AS SINGLE, Poryadok(12) AS SINGLE
X(1) = 4: X(2) = -3: X(3) = 8: X(4) = 2: X(5) = 7
Y(1) = -5: Y(2) = 12: Y(3) = 9: Y(4) = 0: Y(5) = -1: Y(6) = 6: Y(7) = 6
RANDOMIZE TIMER
' Заносим исходные массивы во временный массив последовательно.
FOR i = 1 TO 5
    Temp(i) = X(i)
NEXT i
FOR i = 1 TO 7
    Temp(i + 5) = Y(i)
NEXT i
FOR i = 1 TO 12
    N(i) = i       ' Порядок номеров в новом массиве, без пересортировки
    Poryadok(i) = RND
NEXT i
' Пересортируем порядок номеров по возрастанию случайных значений в массиве Poryadok()
FOR i = 1 TO 12
    Min = Poryadok(i)
    FOR j = i + 1 TO 12
        IF Min > Poryadok(j) THEN
            Poryadok(i) = Poryadok(j)
            Poryadok(j) = Min
            k = N(i)
            N(i) = N(j)
            N(j) = k
        END IF
    NEXT j
NEXT i
' Заносим данные временного массива в выходной массив в определенном выше случайном порядке
' и печатаем массив Z()
PRINT
FOR i = 1 TO 12
    Z(i) = Temp(N(i))
    PRINT Z(i);
NEXT i
END

OPTION Explicit
OPTION BASE 1
DEFINT A-Z
DIM i, j, k, X(5), Y(7), N(12), Z(12), Temp(12), Min AS SINGLE, PoTemp AS SINGLE, Poryadok(12) AS SINGLE
X(1) = 4: X(2) = -3: X(3) = 8: X(4) = 2: X(5) = 7
Y(1) = -5: Y(2) = 12: Y(3) = 9: Y(4) = 0: Y(5) = -1: Y(6) = 6: Y(7) = 6
RANDOMIZE TIMER
' Заносим исходные массивы во временный массив последовательно.
FOR i = 1 TO 5
    Temp(i) = X(i)
NEXT i
FOR i = 1 TO 7
    Temp(i + 5) = Y(i)
NEXT i
FOR i = 1 TO 12
    N(i) = i       ' Порядок номеров в новом массиве, без пересортировки
    Poryadok(i) = RND
NEXT i
' Пересортируем порядок номеров по возрастанию случайных значений в массиве Poryadok()
FOR i = 1 TO 12
    Min = Poryadok(i)
    FOR j = i + 1 TO 12
        IF Min > Poryadok(j) THEN
            PoTemp = Poryadok(i)
            Poryadok(i) = Poryadok(j)
            Poryadok(j) = PoTemp
            k = N(i)
            N(i) = N(j)
            N(j) = k
        END IF
    NEXT j
NEXT i
' Заносим данные временного массива в выходной массив в определенном выше случайном порядке
' и печатаем массив Z()
PRINT
FOR i = 1 TO 12
    Z(i) = Temp(N(i))
    PRINT Z(i);
NEXT i
END