Найти максимальную оценку и соответствующее имя - QBasic

CLS
DATA "abc ","bcd ","cde ","def ","efg "
DATA  31,    21,    77,    14,    55
n = 5
DIM a(n) AS STRING
DIM b(n)
 
FOR i = 1 TO n
   READ a(i)
   PRINT a(i);
NEXT
PRINT : PRINT
 
FOR i = 1 TO n
   READ b(i)
   PRINT b(i);
NEXT
PRINT : PRINT
 
max = b(1)
im$ = a(1)
 
FOR i = 1 TO n
   IF max < b(i) THEN
      max = b(i)
      im$ = a(i)
   END IF
NEXT
 
PRINT "MAX ="; max; im$
END