Напишите программу для Паскаля для перестановки максимального и минимального по значению элементов массива. Значения длины массива вводятся с клавиатуры

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Swap(a[a.IndexMin],a[a.IndexMax]); a.Println
end.


n=13
21 -9 1 3 2 -31 24 -14 44 49 -30 -45 -1
21 -9 1 3 2 -31 24 -14 44 -45 -30 49 -1