Все отрицательные элементы массива увеличить на среднее арифметическое значение положительных элементов - QBasic

REM В двухмерном массиве чисел все отрицательные элементы массива
REM увеличить на среднее арифметическое значение положительных элементов
REM соответствующей строки.
INPUT m
INPUT n
DIM a(1 TO m, 1 TO n) AS SINGLE
FOR i = 1 TO m
  FOR j = 1 TO n
    INPUT a(i, j)
  NEXT j
NEXT i
 
PRINT "Исходный массив"
FOR i = 1 TO m
  FOR j = 1 TO n
    PRINT a(i, j);
  NEXT j
  PRINT
NEXT i
 
FOR i = 1 TO m
  k = 0
  s = 0
  FOR j = 1 TO n
    IF a(i, j) > 0 THEN
      s = s + a(i, j)
      k = k + 1
    END IF
  NEXT j
  IF k <> 0 THEN
    avg = s / k
  ELSE
    avg = 0
  END IF
  FOR j = 1 TO n
    IF a(i, j) < 0 THEN a(i, j) = a(i, j) + avg
  NEXT j
NEXT
  
PRINT "Обработанный массив"
FOR i = 1 TO m
  FOR j = 1 TO n
    PRINT a(i, j);
  NEXT j
  PRINT
NEXT i
END