Дан массив X(N). Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X — Basic(Бейсик)

INPUT "vvedite kolichestvo elementov ", n
DIM x(n), y(n), z(n)
RANDOMIZE TIMER
FOR i = 1 TO n
x(i) = INT(RND * 20) - 10
NEXT
PRINT "massiv x"
FOR i = 1 TO n
PRINT x(i);
NEXT
PRINT
FOR i = 1 TO n
IF x(i) > 0 THEN k = k + 1: y(k) = x(i) ELSE IF x(i) < 0 THEN m = m + 1: z(m) = x(i)
NEXT
PRINT "massiv y"
FOR i = 1 TO k
PRINT y(i);
NEXT
PRINT
PRINT "massiv z"
FOR i = 1 TO m
PRINT z(i);
NEXT