[100Б]В матрице 5x5 найти количество и номера конкретных частей - PascalABC

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Начальная матрица ***');
  var a:=MatrRandom(5,5,-9,9);
  a.Println(3); Writeln(15*'-');
  var s:=a.ElementsByRow.GroupBy(t-gt;t).Select(t-gt;(t.Key,t.Count))
      .Where(t-gt;t[1]gt;1).OrderBy(t-gt;t[0]);
  var c:=a.ElementsWithIndexes.OrderBy(t-gt;t[0]).ToArray;
  Writeln('Знач. Кол-во Индексы');
  foreach var p in s do begin
    Write(p[0]:3,p[1]:7,'   ');
    var q:=p[0];
    var s1:=c.IndexesOf(t-gt;t[0]=q);
    foreach var k in s1 do
      Write('(',c[k][1]+1,',',c[k][2]+1,') ');
    Writeln
    end
end.