maxSumm=0 'максимальная сумма элементов
FOR i=1 TO m
  maxCol = 0 'сумма столбца
  FOR j=1 TO n
    maxCol=maxCol + A(j,i)
  NEXT j
  IF maxCol > maxSumm THEN
    maxSumm=maxCol
  END IF
NEXT i
PRINT maxSumm