Переписать отрицательные элементы массива а(n) в В(к) и определить его размер. Результат распечатать в виде- QBasic(Бейсик)

INPUT n
DIM a(n), b(n)
RANDOMIZE TIMER
FOR i = 1 TO n
    a(i) = INT(RND * 20) - 10
NEXT
PRINT "chislo elementov="; n
PRINT "massiv"
FOR i = 1 TO n
    PRINT a(i); " ";
NEXT
FOR i = 1 TO n
    IF a(i) < 0 THEN k = k + 1: b(k) = a(i)
NEXT
PRINT
PRINT "novyj massiv"
FOR i = 1 TO k
    PRINT b(i); " ";
NEXT
PRINT
PRINT "chislo elementov="; k