Определить максимальное значение в каждой из последовательностей - QBasic

Формулировка задачи:

Даны целые числа К,N и последовательность целых чисел: а1, а2,....,аkn. Определить максимальное значение в каждой из последовательностей (а1,а2,..., аk, (ak+1, ak+2,...,a2k, (ak+1,..., akn) Помогите, пожалуйста)

Решение задачи: «Определить максимальное значение в каждой из последовательностей»

Листинг программы

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

Объяснение кода листинга программы

В первой строке используется команда CLS для очистки экрана.
RANDOMIZE TIMER используется для случайного числа в диапазоне от 0 до 1.
Создается матрица A размером n на k и заполняется случайными числами в диапазоне от 80 до 40 с шагом -40.
Создается матрица M размером n и заполняется первым элементом каждой строки матрицы A.
В каждой строке матрицы A проверяется, является ли первый элемент больше текущего элемента, если да, то первый элемент заменяется на текущий.
Выводятся на экран все элементы матрицы M.