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

//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