Информатика 2.9 В заданном массиве A(N) поменяйте местами наибольший и наименьший элементы.
СРОЧНО, ПОМОГИТЕ ПОЖАЛУЙСТА

begin

 var N := ReadInteger();

 var a := ReadArrReal(N);

 Swap(a[a.IndexMax], a[a.IndexMin]);

 a.Println

end.