Определить чаще всего встречающийся элемент массива - QBasic

CLS
INPUT "kol-vo elementov"; t
DIM a(t), b(t), c(t)
PRINT "zapolnit vrychnuy? (y/n)"
DO
    INPUT yn$
LOOP UNTIL yn$ = "Y" OR yn$ = "y" OR yn$ = "n" OR yn$ = "N"
IF yn$ = "Y" OR yn$ = "y" THEN GOTO 1 ELSE GOTO 2
1 PRINT "zapolnenie massiva A"
FOR i = 1 TO t
    PRINT "vvedite"; i; "element"
    INPUT a(i)
NEXT
PRINT "zapolnenie massiva B"
FOR i = 1 TO t
    PRINT "vvedite"; i; "element"
    INPUT b(i)
NEXT
GOTO 3
2 FOR i = 1 TO t
    a(i) = INT(100 * RND(1) - 25)
    b(i) = INT(100 * RND(1) - 25)
NEXT
3 CLS
PRINT "massiv A:"
FOR i = 1 TO t
    PRINT a(i);
NEXT
PRINT
PRINT "massiv B:"
FOR i = 1 TO t
    PRINT b(i);
NEXT
PRINT
FOR i1 = 1 TO t
    FOR i2 = 1 TO t
        IF a(i1) = b(i2) THEN p = p + 1: c(p) = a(i1)
NEXT: NEXT
IF p = 0 THEN PRINT "takix net": GOTO 4
IF p = 1 THEN PRINT "max="; c(1): GOTO 4
max = c(1)
FOR i = 2 TO p
    IF max < c(i) THEN max = c(i)
NEXT
PRINT "max="; max
4 END