Двумермерные массивы в QBASIC Опции

[Татьяна Суханова]

Найти максимальное значение в двумерном числовом массиве А().

INPUT M
INPUT N
DIM A(M,N)
DIM B(M,1)
FOR J=1 TO N
FOR I=1 TO M
A(I,J)=INT(RND(1))*100
NEXT
NEXT
FOR J=1 TO N
FOR I=1 TO M
PRINT A(I,J)
NEXT
PRINT
NEXT
FOR I=1 TO M
MAX=A(I,J)
FOR J=2 TO N
IF MAX < A(I,J) THEN MAX = A(I,J)
NEXT
B(I,1)=MAX
NEXT
FOR I=1 TO N
PRINT B(I, 1)
NEXT
PRINT

Как дальше подскажите??????????????????