Заполнить Y нечетными элементами массива Х. — QBasic(Бейсик)

5 2 7 4 3 4 Х
5 7 3 Y

INPUT "vvedite N ", n
DIM x(n), y(n)
RANDOMIZE TIMER
FOR i = 1 TO n
    x(i) = INT(RND * 10) + 1
NEXT
PRINT "massiv x"
FOR i = 1 TO n
    PRINT x(i);
NEXT
FOR i = 1 TO n
    IF x(i) MOD 2 <> 0 THEN k = k + 1: y(k) = x(i)
NEXT
PRINT
PRINT "massiv y"
FOR i = 1 TO k
    PRINT y(i);
NEXT