Ввести матрицу В, m ≠n. Заменить в каждой строке максимальный элемент – нулем. Вывести исходную и преобра - QBasic

CLS
RANDOMIZE TIMER
m = 6
n = 8
 
DIM B(1 TO m, 1 TO n) AS INTEGER
 
FOR i = 1 TO m
FOR j = 1 TO n
   B(i, j) = 80 * RND - 40
   PRINT USING "####"; B(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR i = 1 TO m
   Max = B(i, 1)
   jm = 1
 
   FOR j = 1 TO n
      IF Max < B(i, j) THEN
         Max = B(i, j)
         jm = j
      END IF
   NEXT j
   B(i, jm) = 0
NEXT i
 
FOR i = 1 TO m
FOR j = 1 TO n
   PRINT USING "####"; B(i, j);
NEXT j: PRINT
NEXT i
 
END