Дан массив целых чисел (i:=1 to n); После каждого четного числа нужно вставить в массив «0» — Pascal(Паскаль)

 var
a:array[1..100]of integer;
i,j,n,k:integer;
begin
readln(n);
randomize;
for i:=1 to n do
a[i]:=random(20)+1;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=n downto 1 do
if not(odd(a[i]))then
begin
for j:=n+1 downto i+1 do
a[j]:=a[j-1];
a[i+1]:=0;
inc(n);
end;
for i:=1 to n do
write(a[i],' ');
readln;
end.