Продвижения стартапа достоинства недостатки

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Cols.Select(x->x.Sum).ToArray; b.Println
end.

Пример
Количество строк и столбцов в массиве: 6 7
*** Исходный массив ***
  62 -85  18  64  95  41 -14
  72  50 -91  83  70 -14  -9
 -51 -16  24 -43  28 -97  96
 -53 -45 -54  42  72  97  23
 -34  39  27 -64   7 -33  59
  38 -59  60 -16 -26  49 -14

34 -116 -16 66 246 43 141

Function MonthName(n) {
  var месяц;
  switch (n) {
    case 1: месяц = "январь"; break;
    case 2: месяц = "февраль"; break;
    case 3: месяц = "март"; break;
    case 4: месяц = "апрель"; break;
    case 5: месяц = "май"; break;
    case 6: месяц = "июнь"; break;
    case 7: месяц = "июль"; break;
    case 8: месяц = "август"; break;
    case 9: месяц = "сентябрь"; break;
    case 10: месяц = "октябрь"; break;
    case 11: месяц = "ноябрь"; break;
    case 12: месяц = "декабрь"; break;
    default: месяц = ""; break;
  }
  return месяц;
}