Вставить в oднoмepный мaccив пocлe кaждoгo нeчeтнoгo числа двойку

var x:array[1..10] of integer;
    i,n,m,k:integer;
begin
  n:=5;
  m:=2;
    for i:=1 to n do
      begin
        write('x[',i,']=');
          readln(x[i]);
      end;
   for i:=1 to n do
    if (x[i] mod 2<>0) then
      begin
          k:=i;
      end;
  for i:=n+1 downto k+1 do
      x[i]:=x[i-1];
      x[k]:=m;
  for i:=1 to n do
    write(x[i], ' | ');
end.

var x:array[1..10] of integer;
    i,j,n,m,k:integer;
begin
  n:=5;
  m:=2;
    for i:=1 to n do
      begin
        write('x[',i,']=');
          readln(x[i]);
      end;
  i:=1;
  While i<=n do
  Begin
    if odd(X[i]) then
    Begin
      n:=n+1;
      For j:=n downto i+2 do
       X[j]:=X[j-1];
      X[i+1]:=2;
      i:=i+1;
    End;
    i:=i+1;
  End;
  for i:=1 to n do
    write(x[i], ' | ');
end.