Написать программу для pascal.

дан массив а(6,6). найти максимум среди элементов повторившихся более одного раза.

, заранее огромное .

===== PascalABC.NET =====

begin

 var a := MatrRandom(6, 6, -20, 20);

 a.Println(4);

 a.ElementsByRow

     .GroupBy(p -> p)

     .Where(p -> p.Count > 1)

     .MaxBy(p-> p.Key)

     .Distinct

     .Println

end.