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

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.

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