Вывести номера судей, которые поставили наименьшую и наибольшую оценки

DIM n AS SINGLE, temp AS SINGLE
DIM max AS INTEGER, min AS INTEGER, aver AS SINGLE
DIM j AS INTEGER, jmin AS INTEGER, jmax AS INTEGER
 
RANDOMIZE TIMER
n = FIX(RND / 0.05)
 
PRINT "kol-vo sudej: "; n
PRINT
 
DIM ar(n) AS SINGLE
 
FOR i = 1 TO n
    RANDOMIZE TIMER
    ar(i) = FIX(RND / 0.01)
NEXT i
PRINT
 
FOR i = 1 TO n
    PRINT "Sud'ya"; i; ":"; ar(i)
NEXT i
 
max = 0 '*********************MAX*********
FOR i = 1 TO n - 1
    IF ar(i) > max THEN max = ar(i)
    IF ar(i + 1) > max THEN max = ar(i + 1)
NEXT i '**********************************
PRINT
 
min = ar(1) '*****************MIN*********
FOR i = 1 TO n - 1
    IF ar(i) < min THEN min = ar(i)
    IF ar(i + 1) < min THEN min = ar(i + 1)
NEXT i '**********************************
PRINT
 
 
FOR j = 1 TO n
    max = 0
    FOR i = 1 TO n - 1
        IF ar(i) > max THEN max = ar(i)
        IF ar(i + 1) > max THEN max = ar(i + 1)
    NEXT i
    IF ar(j) = min THEN jmin = j
    IF ar(j) = max THEN jmax = j
NEXT j
 
aver = 0
 
PRINT "Sud'ya"; jmin; "Min Value: "; min
PRINT "Sud'ya"; jmax; "Max Value: "; max
FOR i = 1 TO n
    IF i <> jmin AND i <> jmax THEN
        aver = ar(i) + temp
        temp = aver
    END IF
NEXT i
PRINT
PRINT "Aver:"; aver / (n - 2)
 
END