Нужно написать программу на языке паскаль. дан массив действительных чисел среди них есть равные. найти первый максимальный и заменить его нулём

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadArrReal(ReadInteger('n='));

 a[a.IndexMax] := 0;

 a.Println

end.

n= 10-14.75 -62.2 20.7 53.01 -28.25 18.04 29.35 -29.21 53.01 -63.53-14.75 -62.2 20.7 0 -28.25 18.04 29.35 -29.21 53.01 -63.53