Минимальный элемент массива поменять местами со 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