В векторе У (m) поменять местами максимальный и минимальный элементы. Помогите мне пожалуйста. Не в клавиатуру а просто.

// PascalABC.NET 3.0, сборка 1157 от 02.02.2016begin  var n:=ReadInteger('n=');  var y:=ArrRandom(n,1,100); y.Println(', ');  var imax:=0;  var imin:=0;  for var i:=1 to n-1 do    if y[i]>y[imax] then imax:=i    else      if y[i]<y[imin] then imin:=i;  Swap(y[imax],y[imin]);  y.Println(', ')end.Тестовое решение:n= 1235, 81, 48, 34, 51, 44, 97, 56, 94, 51, 11, 3135, 81, 48, 34, 51, 44, 11, 56, 94, 51, 97, 31