Номера столбцов матрицы, все элементы которых равны. - PascalABC.NET

Формулировка задачи:

ПОМОГИТЕ ПОЖАЛУЙСТА! дана целочисленная матрица NxN найти номера столбцов все элементы которых равны.

Решение задачи: «Номера столбцов матрицы, все элементы которых равны.»

Листинг программы

begin
  var n:=ReadLnInteger('n =');
  WriteLn('введите все элементы матрицы:');var m:=ReadMatrInteger(n, n);
  WriteLn('введена матрица:');m.Println;
  var c:=m.Cols.Select((r,i)->r.GroupBy(x->x).Count=1?i+1:0).Where(i->i>0);
  WriteLn('номера столбцов все элементы которых равны: ');if c.Count=0 then WriteLn('нет таких!') else c.Println;
end.

Объяснение кода листинга программы

Вводится размерность матрицы (n) с помощью функции ReadLnInteger.
Вводится матрица размером n на n с помощью функции ReadMatrInteger.
Выводится введенная матрица с помощью метода Println класса Matr.
В цикле выбираются номера столбцов, в которых все элементы равны, с помощью метода Select и функции GroupBy.
Результат выводится на экран с помощью функции WriteLn. Если таких столбцов нет, выводится сообщение нет таких!.