Дан одномерный массив. поменять в нем местами минимальный и максимальный элементы. паскаль. Срочно пожалуйста

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию! begin   var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;   Swap(a[a.IndexMin],a[a.IndexMax]); a.Println end. Пример n= 15 1 62 81 87 16 34 3 30 44 -75 53 -46 14 18 -61 1 62 81 -75 16 34 3 30 44 87 53 -46 14 18 -61