После каждого четного элемента массива вставить два элемента с тем же значением (построить блок схему)

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

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