Сделайте пожалуйста сколько можете!!!!

PascalABC.NET 3.4, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
№10

begin
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(10,10,-20,20);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var mx:=a.ElementsByRow.Max;
  a.Transform(t->t=mx ? 0 : t);
  Writeln('*** Полученная матрица ***'); a.Println(4)
end.