Помогите пожалуйста!! минимальный элемент массива поменять местами со 2-м элемен?

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016 begin   var a:=ArrRandom(ReadInteger('n='),10,90); a.Println;   Swap(a[1],a[a.IndexMin]); a.Println end. Тестовое решение: n= 10 37 48 46 14 14 26 56 64 19 86 37 14 46 48 14 26 56 64 19 86