Суммы каждого столбца и номер столбца с максимальной суммой

Суммы каждого столбца  и номер столбца с максимальной суммой.
CLS
DIM Z(5, 4)
DATA 4,9,12,5,-7,17,-15,8,3,14
DATA 20,2,10,3,16,-21,4,-7,11,-6
   FOR i = 1 TO 5
   FOR j = 1 TO 4
      READ Z(I, j)
LOCATE i * 1, j * 4 – 2
       PRINT Z(i, j);
        S = S + Z(i, j)
   NEXT j, i: PRINT
PRINT “ Сумма массива: “; S
 ‘Блок сумм каждого столбца
LOCATE 7, 2
      PRINT “ Суммы столбцов:”
          FOR j= 1 TO 4
         SUM = 0
   FOR i = 1 TO 5
          SUM = SUM + Z(x, j)
   NEXT i: PRINT
LOCATE 8, j * 4 - 2
      PRINT   SUM:
        IF Smax < SUM THEN
             Smax = SUM
             imax = i
        END IF
   NEXT j
LOCATE 9, 1
PRINT “ Столбец  с max  суммой эл-в: “; imax

4    9     12    5
-7    17  -15    8
 3    14    20    2
 10   3     16   -21
 4    -7     11   -6
Сумма массива:  82
Суммы столбцов:
14    36    44   -12
Столбец с max суммой:  6

Исходный массив:       Суммы строк:
 4    9     12    5                         30
-7    17  -15   8                          3
 3    14    20   2                          39
 10   3     16  -21                        8
 4    -7    11   -6                          2
Сумма массива:  82
Ряд с max суммой эл-в:  3

imax = j