Вычислить и вывести значение суммы максимальных элементов каждой строки матрицы - QBasic

DEFINT A-B, I-J, M-N, S
OPTION BASE 1
RANDOMIZE TIMER
CLS
INPUT "Vvedite N"; n
INPUT "Vvedite M"; m
DIM a(n, m)
DIM b(n)
PRINT
FOR i = 1 TO n
   FOR j = 1 TO m
      a(i, j) = 21 * RND - 10.5
      PRINT USING "####"; a(i, j);
   NEXT j
   PRINT
NEXT i
 
FOR i = 1 TO n
   b(i) = a(i, 1)
NEXT i
 
FOR i = 1 TO n
   FOR j = 1 TO m
      IF b(i) < a(i, j) THEN b(i) = a(i, j)
   NEXT j
NEXT i
 
s = 0
FOR i = 1 TO n
   s = s + b(i)
NEXT i
PRINT
PRINT "SUMMA MAXIMALNYH ELEMENTOV = "; s
END