Переместить в массиве заданный элемент в указанную позицию

const n=10;
var
  a:array[1..n] of integer;
  i,j,k,l:integer;
begin
  write('Введите массив:');
  for i:=1 to n do read(a[i]);
  j:=-1;
  for i:=1 to n-1 do if (a[i+1]<a[i]) then j:=i+1;
  if j=-1 then for i:=2 to n do if a[i]<a[i-1] then j:=i-1;
  if j=-1 then writeln('Все элементы массива упорядочены по возрастанию') else
  begin
    for i:=1 to n do if a[i]>a[j] then break;
        l:=a[j];
        if i<j then for k:=j downto i+1 do a[k]:=a[k-1]
               else for k:=j to i-1 do a[k]:=a[k+1];
        a[i]:=l;
     for i:=1 to n do write(' ',a[i]);
  end;
  readln;
end.

procedure Swap(var a, b: Integer);
var t: Integer;
begin
  t:=a; a:=b; b:=t;
end;
 
const
  n=10;
var
  a: array[1..n] of Integer;
  i: Integer;
begin
  Write('A: '); for i:=1 to n do Read(a[i]); ReadLn;
  for i:=2 to n do
    if a[i]<a[i-1] then Swap(a[i],a[i-1]);
  for i:=n downto 2 do
    if a[i]<a[i-1] then Swap(a[i],a[i-1]);
  for i:=1 to n do Write(' ',a[i]); WriteLn;
end.

const n=10;
var
  a:array[1..n] of integer;
  i,j,k,l:integer;
begin
  write('введите массив:');
  for i:=1 to n do read(a[i]);
  j:=-1;
  if a[1]>a[2] then j:=1 else
  if a[n]<a[n-1] then j:=n  else
    for i:=2 to n-1 do
      if ((a[i]>a[i+1]) and (a[i+1]>=a[i-1])) or
         ((a[i]<a[i-1]) and (a[i+1]>=a[i-1])) then j:=i;
  if j=-1 then writeln('все элементы массива упорядочены по возрастанию') else
  begin
    for i:=1 to n do if a[i]>a[j] then break;
        l:=a[j];
        if i<j then begin for k:=j downto i+1 do a[k]:=a[k-1];a[i]:=l;end
               else begin for k:=j to i-1 do a[k]:=a[k+1];a[i-1]:=l;end;
     for i:=1 to n do write(' ',a[i]);
  end;
  readln;
end.