Как изменить знак максимального по модулю элемента массива. pascal.

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

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 var i := a.Select(t -> Abs(t)).ToArray.IndexMax;

 a[i] := -a[i];

 a.Println

end.

Решение в стиле турбо-паскаля или фрипаскаля, со статическим массивом