Определить среднее арифметическое элементов каждой строки матрицы

CLS
INPUT "Введите имя файла:"; FL$
 
   ON ERROR GOTO CantFind
   Fr = FREEFILE
   OPEN "I", #Fr, FL$
     ' Esli Fail est
  IF NoFound = 1 THEN
     ' Esli Faila net
   PRINT "FAIL NE NAIDEN!!!   VVODIM S KLAVIATURI!!!"
     INPUT "Vvedite kol-vo strok    : ", m
     INPUT "Vvedite kol-vo stolbcov : ", n
  ELSEIF NoFound = 0 THEN
     INPUT #Fr, m, n
  END IF
DIM A(n, m)
   ON ERROR GOTO CantRead
    FOR iy = 1 TO m: FOR ix = 1 TO n
  IF NoFound = 1 THEN
     PRINT "Vvedite element [Stroka:" + STR$(iy) + ",Stolbec:" + STR$(ix) + "] :";
     INPUT A(ix, iy)
  ELSEIF NoFound = 0 THEN
     INPUT #Fr, A(ix, iy)
  END IF
    NEXT: NEXT
    IF NoFound = 0 THEN CLOSE #Fr
 
  'Vivod matrici
  PRINT "Matrica__________"
  FOR iy = 1 TO m: FOR ix = 1 TO n
   PRINT A(ix, iy);
  NEXT: PRINT : NEXT
 
 
  PRINT "[S] - Sohranit matricu [N|ESC] - ne sohranit"
  DO: C$ = INKEY$:
   IF UCASE$(C$) = "S" THEN
    'Vivod matrici v fail
    Fr = FREEFILE
    OPEN "O", #Fr, "Matrica.txt"
    PRINT #Fr, m; n
      FOR iy = 1 TO m: FOR ix = 1 TO n
       PRINT #Fr, A(ix, iy);
      NEXT: PRINT #Fr, : NEXT: EXIT DO
    CLOSE #Fr
   ELSEIF UCASE$(C$) = "N" OR C$ = CHR$(27) THEN EXIT DO
   END IF
  LOOP
 
E = 0
FOR iy = 1 TO m
FOR ix = 1 TO iy
E = E + A(iy, ix)
NEXT ix
NEXT iy
E = E / n
PRINT "1-*п бва®Є* S="; E
 
 
B = 0
FOR iy = 1 TO m
FOR ix = 2 TO 2
B = B + A(iy, ix)
NEXT ix
NEXT iy
B = B / n
PRINT "2-*п бва®Є* S="; B
 
 
C = 0
FOR I = 1 TO m
FOR J = 1 TO 4
C = C + X(I, J)
NEXT J
NEXT I
C = C / 4
PRINT "3-*п бва®Є* S="; C
 
 
D = 0
FOR I = 4 TO 4
FOR J = 1 TO 4
D = D + X(I, J)
NEXT J
NEXT I
D = D / 4
PRINT "4-*п бва®Є* S="; D
 
maxSumm = 9999999999999#
FOR I = 1 TO 4
maxRow = 0
FOR J = 1 TO 4
maxRow = maxRow + X(I, J)
NEXT J
IF maxRow < maxSumm THEN
maxSumm = maxRow
END IF
NEXT I
Z = maxSumm / 4
PRINT
PRINT Z, "- Ќ*Ё¬Ґ*м襥 б।*ҐҐ *аЁд¬ҐвЁзҐбЄ®Ґ"
 
 
  ON ERROR GOTO 0
 
END
 
CantFind:
 NoFound = 1
RESUME NEXT
CantRead:
 FormatER = 1: COLOR 12
 PRINT "Oshibka formata faila, ispravte fail!!!"
 END
RESUME NEXT