Дан ряд действительных числе A (I=1..n). Разделить на 2 ряда четных и нечетных чисел — QBasic(Бейсик)

INPUT "vvedite kol-vo chisel ", n
DIM a(n), b(n), c(n)
RANDOMIZE TIMER
PRINT "chisla:"
FOR i = 1 TO n
    a(i) = INT(RND * 50)
    PRINT a(i);
NEXT
PRINT
FOR i = 1 TO n
    IF a(i) MOD 2 <> 0 THEN k = k + 1: b(k) = a(i) ELSE m = m + 1: c(m) = a(i)
NEXT
PRINT "chetnye chisla"
FOR i = 1 TO m
    PRINT c(i);
NEXT
PRINT
PRINT "nechetnye chisla"
FOR i = 1 TO k
    PRINT b(i);
NEXT