Сформировать одномерный целочисленный массив a размерностью n. запросить у пользователя индекс k и поменять местами элемент a[k-1] и a[k+1]. вывести на экран исходный и итоговый массивы. если k = 1 или n – вывести сообщение об ошибке.

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-10,15); a.Println;
  var k:=ReadInteger('k=');
  if k in [2..n-1] then begin
    Swap(a[k-2],a[k]); a.Println
    end
  else Writeln('Неверное k')
end.

Тестовое решение:
n= 10
2 -10 10 -8 7 -4 9 2 -6 0
k= 4
2 -10 7 -8 10 -4 9 2 -6 0