Заменить в третьем столбце все отрицательные элементы нулями, все положительные в 5-й строке их квадратами - QBasic

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

Не могу решить. 1.Дан массив R (M, N). Заменить в третьем столбце все отрицательные элементы нулями, все положительные элементы в 5-й строке их квадратами.

Решение задачи: «Заменить в третьем столбце все отрицательные элементы нулями, все положительные в 5-й строке их квадратами»

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

RANDOMIZE TIMER
INPUT "Введите m, n: ", m, n
DIM r(m, n)
PRINT "A="
FOR i = 1 TO m
  FOR j = 1 TO n
    r(i, j) = INT(RND * 21) - 10
    PRINT USING " ###"; r(i, j);
  NEXT
  PRINT
NEXT
FOR i = 1 TO m
  IF r(i, 3) < 0 THEN r(i, 3) = 0
NEXT
FOR j = 1 TO n
  IF r(5, j) > 0 THEN r(5, j) = r(5, j) ^ 2
NEXT
PRINT "A'="
FOR i = 1 TO m
  FOR j = 1 TO n
    PRINT USING " ###"; r(i, j);
  NEXT
  PRINT
NEXT

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

RANDOMIZE TIMER - инициализация генератора случайных чисел
INPUT Введите m, n:, m, n - запрос на ввод размеров матрицы
DIM r(m, n) - создание матрицы r размером m на n
PRINT A= - вывод заголовка для первой матрицы
FOR i = 1 TO m - цикл по строкам матрицы r
FOR j = 1 TO n - цикл по столбцам матрицы r
r(i, j) = INT(RND * 21) - 10 - заполнение матрицы r случайными числами от -10 до 10
PRINT USING ###; r(i, j); - вывод элемента матрицы в формате 5 цифр
NEXT - выход из цикла по столбцам
PRINT - вывод строки разделения между первой и второй матрицами
FOR i = 1 TO m - цикл по строкам матрицы r
IF r(i, 3) < 0 THEN r(i, 3) = 0 - замена отрицательных чисел в 3-ем столбце на 0
NEXT - выход из цикла по строкам
FOR j = 1 TO n - цикл по столбцам матрицы r
IF r(5, j) > 0 THEN r(5, j) = r(5, j) ^ 2 - возведение в квадрат положительных чисел в 5-й строке
NEXT - выход из цикла по столбцам
PRINT A'= - вывод заголовка для второй матрицы
FOR i = 1 TO m - цикл по строкам матрицы r
FOR j = 1 TO n - цикл по столбцам матрицы r
PRINT USING ###; r(i, j); - вывод элемента матрицы в формате 5 цифр
NEXT - выход из цикла по столбцам
PRINT - вывод строки разделения между второй и третьей матрицами
NEXT - выход из цикла по строкам