Дана целочисленная квадратная матрица А порядка N. Найти максимум в каждой строке. Если эти максимумы располагаются по о - PascalABC.NET

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

Дана целочисленная квадратная матрица А порядка N. Найти максимум в каждой строке. Если эти максимумы располагаются по одному в каждом столбце, то вывести соответствующее сообщение.

Решение задачи: «Дана целочисленная квадратная матрица А порядка N. Найти максимум в каждой строке. Если эти максимумы располагаются по о»

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

  var maxs := a.Rows.Select(v -> v.Max);
  WritelnFormat('Максимумы: {0}' + NewLine + '{1}', maxs.JoinIntoString, 
                a.Cols.Select(v -> v.Count(x -> maxs.Contains(x))).All(x -> x = 1) ? 
                  'В каждом столбце строго по одному максимуму' : 'Не по одному максимуму в каждом столбце');

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

Импортируется пространство имен System.
Вектор a инициализируется квадратной матрицей целых чисел порядка N.
Создается пустой вектор maxs.
Происходит итерация по каждой строке матрицы a.
В каждой строке находится максимальное значение.
Полученное максимальное значение добавляется в вектор maxs.
Выводится сообщение, содержащее вектор maxs и количество столбцов, в которых встречаются максимальные значения.
Если количество столбцов, в которых встречаются максимальные значения, равно 1, выводится сообщение «В каждом столбце строго по одному максимуму».
Если количество столбцов, в которых встречаются максимальные значения, больше 1, выводится сообщение «Не по одному максимуму в каждом столбце».