Упорядочить по возрастанию только: положительные элементы списка - QBasic

CLS
RANDOMIZE TIMER
CONST n = 16
DIM A(1 TO n) AS INTEGER
 
FOR i = 1 TO n
   A(i) = 80 * RND - 40
   PRINT A(i);
NEXT i
PRINT : PRINT
 
FOR i = 1 TO n
   IF A(i) > 0 THEN k = k + 1
NEXT i
 
IF k THEN
   FOR i = 1 TO n - 1
   FOR j = i + 1 TO n
      IF A(i) > 0 AND A(j) >= 0 AND A(i) > A(j) THEN
         SWAP A(i), A(j)
      END IF
   NEXT j, i
END IF
 
FOR i = 1 TO n
   PRINT A(i);
NEXT i
END