Задан числовой массив, состоящий из N элементов. Определить количество простых чисел в массиве — QBasic(Бейсик)

INPUT "vvedite razmer massiva ", n
DIM a(n)
RANDOMIZE TIMER
PRINT "ishodnyj massiv"
FOR i = 1 TO n
    a(i) = INT(RND * 99) + 2
    PRINT a(i);
NEXT
FOR i = 1 TO n
    f = 0
    FOR j = 2 TO SQR(a(i))
        IF a(i) MOD j = 0 THEN f = 1
    NEXT
    IF f = o THEN m = m + 1
NEXT
PRINT
PRINT "v massive "; m; " prostyh chisel"