Написать программу: Заменить нулём максимальные числа в массиве Помогите плиз:)

//PascalABC.NET 3.2 сборка 1318 var   max:integer; begin var arr:=ReadArrInteger(readinteger()); max:=arr.Max; arr.Replace(arr,max,0); arr.Print; end. Пример ввода: 4 1 2 3 3 Пример вывода: 1 2 0 0