Массивы: Найти столбец, сумма элементов которого минимальна. Вывести сумму и номер столбца. - VB

CLS
INPUT "Количество строк и столбцов -", N
DIM A(N, N) 'Резервирование памяти для массива
FOR i = 1 ТО N 'Ввод массива
FOR j = 1 ТО N
PRINT "А("; i ;",";j ;")=";
INPUT A( i, j)
NEXT j
NEXT i
CLS
PRINT "Матрица А"
FOR i = 1 TO N 'Вывод массива по строкам
FOR j = 1 TO N
PRINT A( i , j)
NEXT j
PRINT
NEXT i
PRINT
S  =  0  'Вычисление  суммы  элементов, лежащих  ниже  главной  диагонали
FOR i = 2 ТО N
FOR j = 1 ТО i - 1
S1 =  S1 + A(i,  j)
NEXT j
NEXT i
S2 = 0 ‘Вычисление суммы элементов, лежащих выше главной диагонали
FOR i = 1 ТО N- 1
FOR j = i +1 TO N
S2 = S2  + A(i,  j)
NEXT j
NEXT i
PRINT "Сумма элементов, лежащих ниже главной
  диагонали равна"; S1
PRINT "Сумма  элементов, лежащих выше
главной диагонали равна"; S2
END