Из двух упорядоченных массивов размера n и m соответственно создать упорядоченный массив размера n+m

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

DIM i AS LONG, j AS LONG, k AS LONG, n AS LONG, m AS LONG
READ n
DIM a(1 TO n) AS LONG
PRINT "Array 1"
FOR i = 1 TO n
    READ a(i)
    PRINT a(i);
NEXT i
PRINT
READ m
DIM b(1 TO m) AS LONG, c(1 TO n + m) AS LONG
PRINT "Array 2"
FOR i = 1 TO m
    READ b(i)
    PRINT b(i);
NEXT i
PRINT
PRINT "Array 3"
i=0
WHILE i < n OR j < m
    k = k + 1
    IF i = n THEN
        j = j + 1
        c(k) = b(j)
    ELSEIF j = m THEN
        i = i + 1
        c(k) = a(i)
    ELSE
        IF a(i+1) < b(j+1) THEN i = i + 1: c(k) = a(i) ELSE j = j + 1: c(k) = b(j)
    END IF
    PRINT c(k);
WEND
PRINT
 
DATA 5
DATA -1, 3, 6, 10, 15
DATA 6
DATA 1, 4, 9, 11, 13, 21