Сумма рядов двумерного массива и нумерация рядов с чётной суммой

CLS
DIM a(n, m)
INPUT “ Кол. строк и столбцов: “, n, m
   FOR i = 1 TO n
   FOR j = 1 TO m
    X(i, j) = INT(RND * 50) – 20
PRINT USING “####”; X(I, j);
   NEXT: PRUNT
   NEXT: PRINT
   FOR i = 1 TO n
        S = 0
   FOR j = 1 TO m
       SUM = SUM + X(i, j)
   NEXT j
PRINT “ Сумма”; i; “-го ряда “; SUM
    IF SUM MOD 2 = 0 THEN
PRINT “ Номер чётного ряда: “; i
     END IF
   NEXT i

Кол. строк и столбцов:  4,  5
 15    6      8    -6   -5
 18  -20   18   20   15
-18    0    23   19    -2
 20   23  -18   27    -2  
 
Сумма 1-го ряда   18
Номер чётного ряда:   1
Сумма 2-го ряда   51
Сумма 3-го ряда   22
Номер чётного ряда:    3
Сумма 4-го ряда   58
Номер чётного ряда:    4

         Сумма 1-го ряда  …
          ………………….
          Сумма 4-го ряда …

  Номера чётных рядов …

PRINT “ Сумма”; i; “-го ряда “; SUM

 FOR i = 1 TO  n
   IF SUM MOD 2 = 0 THEN
PRINT “ Номер чётного ряда: “; i
     END IF
   NEXT i

Кол. строк и столбцов:  4,  5
 15    6      8    -6   -5
 18  -20   18   20   15
-18    0    23   19    -2
 20   23  -18   27    -2  
 
Сумма 1-го ряда   18
Сумма 2-го ряда   51
Сумма 3-го ряда   22
Сумма 4-го ряда   58
 
Номер чётного ряда:    1
Номер чётного ряда:    2
Номер чётного ряда:    3
Номер чётного ряда:    4