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

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  Swap(a[a.IndexMin],a[a.IndexMax]); a.Printlnend.Примерn=13 21 -9 1 3 2 -31 24 -14 44 49 -30 -45 -121 -9 1 3 2 -31 24 -14 44 -45 -30 49 -1