Найдите в массиве максимальный элемент и замените его нулем

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016begin  var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;  a[a.IndexMax]:=0; a.Printlnend.Тестовое решение:n= 1577 61 72 65 9 32 17 46 9 18 63 13 80 20 4977 61 72 65 9 32 17 46 9 18 63 13 0 20 49