Подсчет числа различных отрицательных элементов одномерного массива - QBasic

DEFINT A-B, I-K, N
RANDOMIZE TIMER
CLS
INPUT "N = "; n
DIM a(1 TO n)
 
FOR i = 1 TO n
   a(i) = 20 * RND - 10
   PRINT USING "####"; a(i);
NEXT i
PRINT
 
k = 0
FOR i = 1 TO n
   IF a(i) < 0 THEN
      b = a(i)
      k = k + 1
      FOR j = i TO n
         IF a(j) = b THEN a(j) = 0
      NEXT j
   END IF
NEXT i
 
PRINT "OTVET: "; k
END