В заданных массивах найти наибольшее и наименьшее значения

DECLARE SUB ABC (x!(), max!, imax!, min!, imin!)
 
CLS
DIM b(8)
DIM c(8)
DATA 1,3,5,8,6,7,2,9
DATA -2.1, 1.7, 3.8,-4.0, 7.6, 5.2, 9.0, 0.6
 
FOR i = 1 TO 8
   READ b(i)
   PRINT b(i);
NEXT
PRINT
 
FOR i = 1 TO 8
   READ c(i)
   PRINT c(i);
NEXT
PRINT : PRINT
 
CALL ABC(b(), maxB, i1, minB, i2)
PRINT "maxB ="; maxB; "i ="; i1
PRINT "minB ="; minB; "i ="; i2
 
CALL ABC(c(), maxC, i1, minC, i2)
PRINT "maxC ="; maxC; "i ="; i1
PRINT "minC ="; minC; "i ="; i2
END
 
SUB ABC (x(), max, imax, min, imin)
   max = x(1)
   min = max
   imax = 1
   imin = imax
  
   FOR i = 1 TO 8
      IF max < x(i) THEN
         max = x(i)
         imax = i
      END IF
 
      IF min > x(i) THEN
         min = x(i)
         imin = i
      END IF
   NEXT
END SUB

OPTION BASE x

OPTION BASE 1