Все элементы с наибольшим значением в данной матрице заменить нулями - QBasic

CONST n=10
CONST m=10
DIM a(1 TO n, 1 TO m) AS INTEGER
 
PRINT "Array:"
FOR i=1 TO n 
    FOR j=1 TO m 
        a(i,j)=INT(RND*5)+1
        PRINT(a(i,j));  
    NEXT
    PRINT
NEXT
max=a(1,1)
FOR i=1 TO n 
    FOR j=1 TO m
        IF max<a(i,j) THEN
            max=a(i,j)
        EndIf
    NEXT
NEXT
PRINT "Max: "; max
PRINT "Changed array:"
FOR i=1 TO n 
    FOR j=1 TO m 
        IF a(i,j)=max THEN
            a(i,j)=0
        EndIf
        PRINT(a(i,j));  
    NEXT
    PRINT
NEXT
 
SLEEP