Определить номер наибольшего элемента массива a и наибольшего значения среди модулей элементов массива a. составить программу в паскале. массив одномерный и значений ну скажем пусть будет пять

begin

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

 a.Println;

 Println('Номер максимального элемента', a.IndexMax + 1);

 Println('Номер максимального по модулю элемента',

     a.IndexOf(a.MaxBy(x -> Abs(x))) + 1)

end.