Ima li tko ideju za ovaj zadatak u Q-basic -u (matrica)

Code:

CLS
DIM x, y, i, j, v1, v2, count AS INTEGER

INPUT "Upisi broj redaka :", x
INPUT "Upisi broj stupaca :", y
PRINT "------------------------------------"

DIM matrix(x, y) AS INTEGER

FOR i = 0 TO x - 1
    FOR j = 0 TO y - 1
        PRINT "Upisi vrijednost za " + STR$(i) + ", " + STR$(j) + " :";
        INPUT "", matrix(i, j)
    NEXT j
NEXT i

PRINT "------------------------------------"

FOR i = 0 TO x - 1
    FOR j = 0 TO y - 1
        PRINT STR$(matrix(i, j)) + " ";
    NEXT j
    PRINT ""
NEXT i

PRINT "------------------------------------"
INPUT "Upisite broj za kojega se traze susjedni :", v1
INPUT "Upisite broj koji treba bit susjedni :", v2
PRINT "------------------------------------"

FOR i = 0 TO x - 1
    FOR j = 0 TO y - 1
        IF matrix(i, j) = v1 THEN
            IF (i - 1) > 0 AND (j - 1) > 0 THEN
            IF matrix(i - 1, j - 1) = v2 THEN count = count + 1
            END IF
            
            IF (j - 1) > 0 THEN
            IF matrix(i, j - 1) = v2 THEN count = count + 1
            END IF
           
            IF (i + 1) < x AND (j - 1) > 0 THEN
            IF matrix(i + 1, j - 1) = v2 THEN count = count + 1
            END IF
    
            IF (i - 1) > 0 THEN
            IF matrix(i - 1, j) = v2 THEN count = count + 1
            END IF

            IF (i + 1) < x THEN
            IF matrix(i + 1, j) = v2 THEN count = count + 1
            END IF
           
            IF (i - 1) > 0 AND (j + 1) < y THEN
            IF matrix(i - 1, j + 1) = v2 THEN count = count + 1
            END IF

            IF (j + 1) < y THEN
            IF matrix(i, j + 1) = v2 THEN count = count + 1
            END IF

            IF (i + 1) < x AND (j + 1) < y THEN
            IF matrix(i + 1, j + 1) = v2 THEN count = count + 1
            END IF
        END IF
    NEXT j
NEXT i

PRINT "Susjednosti : " + STR$(count)