Задание PascalABC.net Очень нужна помощь!В заданой матрице размер которой указывает пользователь, а элементы образуются случайным образом: посчитать количество столбцов, в которых одинаковые суммы элементов.

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(m,n,10,20);
  a.Println(3); Writeln(3*a.ColCount*'-');
  var k:=a.Cols.Select(col->col.Sum).GroupBy(t->t)
      .Select(t->(t.Key,t.Count)).Where(t->t[1]>1).Sum(t->t[1]);
  Writeln('Искомое количество столбцов: ',k)
end.


Количество строк и столбцов в матрице: 4 15
*** Исходная матрица ***
 12 13 15 17 16 17 19 19 13 18 15 14 10 10 15
 15 17 15 10 18 13 11 17 14 19 15 10 15 17 19
 15 16 14 14 20 10 20 16 20 13 12 16 20 10 13
 16 17 17 13 19 15 20 11 13 17 11 17 10 18 11
---------------------------------------------
Искомое количество столбцов: 7



begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(m,n,10,20);
  a.Println(3); Writeln(3*a.ColCount*'-');
  // по шажкам
  var s1:=a.Cols.Select(col->col.Sum);
  Writeln('Суммы поколонно:'); s1.Println;
  var s2:=s1.GroupBy(t->t);
  Writeln('Группировка сумм:'); Writeln(s2);
  var s3:=s2.Select(t->(t.Key,t.Count));
  Writeln('То же, формат "значение, количество":'); Writeln(s3);
  var s4:=s3.Where(t->t[1]>1);
  Writeln('Оставляем только суммы с повторами:'); Writeln(s4);
  var k:=s4.Sum(t->t[1]);
  Writeln('Искомое количество столбцов: ',k)
end.


Количество строк и столбцов в матрице: 4 15
*** Исходная матрица ***
 11 11 16 15 17 13 15 14 11 18 20 16 15 15 15
 20 17 10 18 18 14 11 19 16 13 16 18 16 10 12
 16 20 10 13 12 14 16 19 11 16 19 16 17 12 12
 19 12 12 11 10 14 18 10 15 11 10 13 10 11 10
---------------------------------------------
Суммы поколонно:
66 60 48 57 57 55 60 62 53 58 65 63 58 48 49
Группировка сумм:
[[66],[60,60],[48,48],[57,57],[55],[62],[53],[58,58],[65],[63],[49]]
То же, формат "значение, количество":
[(66,1),(60,2),(48,2),(57,2),(55,1),(62,1),(53,1),(58,2),(65,1),(63,1),(49,1)]
Оставляем только суммы с повторами:
[(60,2),(48,2),(57,2),(58,2)]
Искомое количество столбцов: 8