Ввод и вывод четырехзначных значений массива через RND

CLS
INPUT "Vvesti kol. strik N<12 N= "; N
INPUT "Vvesti kol. stolbcov M<12 M= "; M
DIM A(N, M) AS INTEGER
DIM B(N, M) AS INTEGER
DIM C(N, M) AS SINGLE
k = 0
ozh = 0
CLS
 
FOR i = 1 TO N
    FOR j = 1 TO M
        RANDOMIZE TIMER
        A(i, j) = RND * 9999 + (-999)
    NEXT j
NEXT i
 
FOR i = 1 TO N
    FOR j = 1 TO M
        RANDOMIZE TIMER
        B(i, j) = RND * 9999 + (-999)
    NEXT j
NEXT i
 
FOR i = 1 TO N
    FOR j = 1 TO M
        C(i, j) = ((SIN(A(i, j))) - (SIN(B(i, j))))
    NEXT j
NEXT i
PRINT "Kolichestvo strok: "; N; " Kolichestvo stolbcov: "; M
PRINT "massiv A:"
FOR i = 1 TO N
    FOR j = 1 TO M
        PRINT A(i, j);
    NEXT j
    PRINT
NEXT i
 
PRINT "Massiv B:"
FOR i = 1 TO N
    FOR j = 1 TO M
        PRINT B(i, j);
    NEXT j
    PRINT
NEXT i
 
 
PRINT "Massiv C:"
FOR i = 1 TO N
    FOR j = 1 TO M
        PRINT USING "##.######"; C(i, j);
        IF (i = j) THEN
            ozh = ozh + C(i, j)
            k = k + 1
        END IF
    NEXT j
    PRINT
NEXT i
otv = ozh / k
PRINT USING "Ozhidanie glavnoi diagonali matrici ##.######: "; otv
END

   .   .   .  = INT(RND * 10000)

   .   .   .  = INT(RND * 9000) + 1000 'четырехзначные числа от 1000 до 9999

   .   .   .  = INT(RND * 9000) + 1000 * (INT(RND * 2) * 2 - 1) 'четырехзначные числа со случайным знаком (от -9999 до -1000 или от 1000 до 9999)