Вставить число 400 перед всеми нечетными элементами массива

const
  N = 10;
 
type
  IntArray = array of integer;
 
var
  A: IntArray;
  Count: integer;
 
procedure Print();
begin
  for var i := 0 to A.Length - 1 do
    Write(A[i]:5);
  Writeln();
end;
 
procedure Add(a: IntArray; i: integer);
begin
  for var j := a.Length - 1 downto i + 1 do
    a[j] := a[j - 1];
  a[i] := 400;
end;
 
begin
  SetLength(A, N);
  for var i := 0 to N - 1 do
  begin
    Readln(A[i]);
    Inc(Count, Ord(A[i] mod 2 <> 0));
  end;
  SetLength(A, N + Count);
  
  Print();
  var i := 0;
  while i < A.Length do
  begin
    if A[i] mod 2 <> 0 then
    begin
      Add(A, i);
      Inc(i);
    end;
    Inc(i);
  end;
  Print();
end.

const
  N = 10;
 
var
  A: array of integer;
  Count: integer;
 
procedure Print();
begin
  for var i := 0 to A.Length - 1 do
    Write(A[i]:5);
  Writeln();
end;
 
begin
  SetLength(A, N);
  for var i := 0 to N - 1 do
  begin
    Readln(A[i]);
    Inc(Count, A[i] mod 2);
  end;
  Print();
  
  SetLength(A, N + Count);
  
  var i := N + Count - 1;
  var j := N - 1;
  while j >= 0 do
  begin
    A[i] := A[j];
    if Odd(A[i]) then 
    begin
      Dec(i); A[i] := 400;
    end;
    Dec(i); Dec(j);
  end;
  
  Print();
end.