Заполнить массив Y номерами всех четных элементов массива X — Basic(Бейсик)

INPUT "vvedite kol-vo elementov ",n
DIM x(n),y(n)
RANDOMIZE TIMER
PRINT "massiv x"
FOR i=1 TO n
x(i)=INT(RND*20)
PRINT x(i);" ";
NEXT
PRINT
FOR i=1 TO n
IF x(i) MOD 2=0 THEN k=k+1:y(k)=i
NEXT
PRINT "massiv y"
FOR i=1 TO k
PRINT y(i);" ";
NEXT