Массив. Вставить число 5 после каждого четного числа

var x:array[1..20] of integer;
    i,j,n:integer;
begin
  write('Ведите размерность массива N<=20 - '); readln(n);
    for i:=1 to n do
      begin
        x[i]:=random(15);
        write(x[i]:4);
      end;
  i:=1;
  While i<=n do
  Begin
    if (X[i] mod 2=0) then
    Begin
      n:=n+1;
      For j:=n downto i+2 do
       X[j]:=X[j-1];
      X[i+1]:=5;
    End;
    i:=i+1;
  End;
  writeln;
  for i:=1 to n do
    write(x[i], ' | ');
end.

For j:=n+1 downto i+2 do

if (X[i] mod 2<>0) then

var x:array[1..20] of integer;
    i,j,n:integer;
begin
randomize;
repeat
write('Ведите размерность массива N<=10 - '); //размерность в 2 раза меньше максимального размера массива
readln(n);
until n in [1..10];
writeln('Исходный массив');
for i:=1 to n do
 begin
  x[i]:=random(15);
  write(x[i]:4);
 end;
writeln;
i:=1;
while i<=n do
 begin
  if x[i] mod 2=0 then
   begin
    n:=n+1;
    for j:=n downto i+2 do
    x[j]:=x[j-1];
    x[i+1]:=5;
   end;
  i:=i+1;
 end;
writeln('Вставка числа 5');
for i:=1 to n do
write(x[i]:4);
end.