Составить программу находящую максимальный и минимальный элемент масива и меняю?

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016 begin   var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;   Swap(a[a.IndexMax],a[a.IndexMin]); a.Println end. Тестовое решение: n= 10 21 52 65 12 88 16 13 76 97 36 21 52 65 97 88 16 13 76 12 36