Найти максимальный элемент матрицы - QBasic (27607)

DEFINT A, I-K, M-N, S
OPTION BASE 1
RANDOMIZE TIMER
CLS
INPUT "Vvedite N"; n
INPUT "Vvedite M"; m
DO
   INPUT "Vvedite Nomer stolbca (<=M)"; k
LOOP WHILE k > m
DIM a(n, m)
 
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
 
PRINT
FOR j = 1 TO m
   IF j = k THEN 2014
   FOR i = 1 TO n
      a(i, j) = a(i, j) - a(i, k)
   NEXT i
2014
NEXT j
 
PRINT
FOR i = 1 TO n
   FOR j = 1 TO m
      PRINT USING "####"; a(i, j);
   NEXT j
   PRINT
NEXT i
END