Числовых упорядоченных одномерных массив - QBasic

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

Из двух числовых упорядоченных одномерных массивов размера n и m соответственно создать упорядоченный массив размера n+m. Упорядочивание результативного массива запрещено. Помогите ПЖ!!!, если можно.

Например.....


INPUT.TXT
5
-1, 3, 6, 10,15
6
1, 4, 9,11, 13, 21
OUTPUT.TXT
-1, 1, 3, 4, 6, 9, 10, 11, 13, 15, 21

Решение задачи: «Числовых упорядоченных одномерных массив»

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

INPUT n
INPUT m
DIM a(n), b(m + 1), c(m + n)
PRINT "1 massiv"
FOR i = 1 TO n
INPUT a(i)
NEXT
PRINT "2 massiv"
FOR i = 1 TO m
INPUT b(i)
NEXT
j = 1
FOR i = 1 TO n
DO WHILE j <= m AND b(j) < a(i)
r = r + 1
PRINT r
c(r) = b(j)
j = j + 1
LOOP
r = r + 1
c(r) = a(i)
NEXT
IF r < n + m THEN
FOR i = r + 1 TO n + m
c(i) = b(j)
j = j + 1
NEXT
END IF
PRINT "3 massiv"
FOR i = 1 TO n + m
PRINT c(i);
NEXT
PRINT

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

Задаются два целых числа n и m с помощью команды INPUT.
Создаются три массива: a размером n, b размером m+1 и c размером m+n.
С помощью команды PRINT выводится сообщение 1 massiv.
С помощью двух циклов FOR заполняются массив a и b значениями, введенными пользователем.
Инициализируется переменная j равной 1.
С помощью двух циклов FOR заполняются массив c значениями из массива b и a в соответствии с условием b(j) < a(i). Переменная j увеличивается на 1 после каждой итерации внешнего цикла.
Если значение переменной r меньше n+m, то с помощью двух циклов FOR заполняются оставшиеся элементы массива c значениями из массива b.
Выводится сообщение 3 massiv.
С помощью цикла FOR выводятся все элементы массива c.
Выводится символ новой строки PRINT.