Помогите, пожалуйста, составить программку подмены местами в массиве b(n) второго и

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  var n:=ReadInteger('n=');
  var b:=ArrRandom(n,10,99); b.Println;
  Swap(b[1],b[n-2]); b.Println;
  b:=b.Sorted.ToArray; b.Println
end.

Тестовое решение
n= 15
74 23 76 50 79 79 38 74 21 33 45 10 35 58 48
74 58 76 50 79 79 38 74 21 33 45 10 35 23 48
10 21 23 33 35 38 45 48 50 58 74 74 76 79 79