Заменить все элементы, большие последнего, на единицы. Заполнение массива произвести с клавиатуры

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrInteger('Вводите:',ReadInteger('Количество элементов:'));  a.Transform(t->t>a.Last?1:t); a.Println;end.ПримерКоличество элементов: 8Вводите: 23 -10 5 23 100 -28 4 131 -10 5 1 1 -28 4 13