Дан двумерный массив.Найти число пар одинаковых (соседних) элементов в каждом столбце

CLS
DEFINT K, X, Y
 
INPUT "Vvedite kol-vo stolbcov: "; x
INPUT "Vvedite kol-vo strok: "; y
 
DIM Ar(1 TO x, 1 TO y) AS INTEGER
 
RANDOMIZE TIMER
 
FOR i = 1 TO x
    FOR j = 1 TO y
        Ar(i, j) = INT(RND * 10)
        PRINT Ar(i, j)
    NEXT j
NEXT i
 
k = 0
FOR i = 1 TO x
    FOR j = 1 TO y - 1
        IF Ar(i, j) = Ar(i, j + 1) THEN
            k = k + 1
        END IF
    NEXT j
NEXT i
 
PRINT "Kolichestvo par v stolbcah = "; k
END

CLS
DEFINT K, Z, R
DIM zero AS INTEGER
 
INPUT "Vvedite kol-vo strok i stolbcov: "; n
 
DIM Ar(1 TO n, 1 TO n) AS INTEGER
 
RANDOMIZE TIMER
 
FOR i = 1 TO n
    FOR j = 1 TO n
        Ar(i, j) = INT(RND * 10 - 5)
        PRINT Ar(i, j)
    NEXT j
NEXT i
 
FOR i = 1 TO n
    k = 0
    z = 0
    FOR j = 1 TO n
        IF Ar(i, j) = 0 THEN zero = zero + 1
        IF Ar(i, j) >= 0 THEN
            temp = Ar(i, j)
            k = k + 1
            IF k = 1 THEN fpos = temp
        ELSE
            temp = Ar(i, j)
            z = z + 1
            IF z = 1 THEN fneg = temp
        END IF
    NEXT j
    IF zero = 0 AND fpos = 0 OR fneg = 0 THEN
        PRINT "Stolbec ne imeet i otric i poloj elementa"
    ELSE
        PRINT "Perv. poloj: "; fpos
        PRINT "Perv. otric: "; fneg
        PRINT "Raznica: "; ABS(fneg) + ABS(fpos)
    END IF
NEXT i
END

CLS
DIM k AS INTEGER
 
INPUT "Vvedite kol-vo elementov v mas: "; n
 
DIM Ar(1 TO n) AS INTEGER
RANDOMIZE TIMER
 
FOR i = 1 TO n
    Ar(i) = INT(RND * 100)
    PRINT Ar(i)
NEXT i
PRINT
FOR i = 1 TO n
    IF Ar(i) MOD 10 = 0 THEN
        PRINT "Konch. na nol': "; i
    END IF
NEXT i
END

cls
input "razmernost massiva"; n
dim a(n)
for i =1 to n
cls
? "a(";i;")=";
input a(i)
next i
cls
max = a(i)
for i=1 to n
if max<a(i) then max=a(i)
next i
for i =1 to n
if max=a(i) then s=s+1
next i
if s= 1 then goto 5
if s>1 then goto 1
5 for i = 1 to n
if max=a(i) then l=i
next i
for i =1 to l-1
if a(i) mod 2 = 0 then s=s+a(i)
next i
for i=l+1 to n
if a(i) mod 2 = 0 then sum=sum+a(i)
next i
if s>sum then ? max
end
1 input "max elementov neskolko, kekoy vy xotite ispolzovat"; g
for i = 1 to n
if a(i)=max then k=K+1
if a(i)=max and k=g then p=i: end for
next i
for i = 1 to p-1
if a(i) mod 2 = 0 then s=s+a(i)
next i
for i=p+1 to n
if a(i) mod 2 = 0 then sum=sum+a(i)
next i
if s>sum then ? max