Замена нулевых эл-тов одного массива очередным в порядке возрастания индексов эл-ми второго

INPUT "vvedite n: ", n
DIM a(n), b(n), c(n)
FOR i = 1 TO n
    PRINT "vvedite a("; i; ")";
    INPUT ": ", a(i)
NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n
    PRINT "vvedite b("; i; ")";
    INPUT ": ", b(i)
NEXT
FOR i = 1 TO n
    IF a(i) = 0 THEN k = k + 1: a(i) = b(k)
NEXT
CALL func(a(), b(), c(), n)
PRINT "massiv a:"
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT "massiv b:"
FOR i = 1 TO n
    PRINT b(i);
NEXT
PRINT
PRINT "massiv c:"
FOR i = 1 TO n
    PRINT c(i);
NEXT
 
SUB func (a(), b(), c(), n)
FOR i = 1 TO n
    c(i) = a(i) + b(i)
NEXT
END SUB

(a(), b(), c(), n)