массивы

[thedream]

Дана задача:после каждого четного элемента массива вставить два элемента с тем же значением.
Если кто-то поможет буду благодарен.

uses crt;
var a:array[1..100] of integer;
    z,f,i,j,n,k:integer;
begin
clrscr;
randomize;readln(n);
f:=n;z:=1;
for i:=1 to n do begin a[i]:=random(100)-50;write(a[i],' ');end;
k:=n;  writeln;
while z<=f do
begin
if (a[z] mod 2=0) then
begin
n:=n+2;
for j:=n downto (z+3) do
begin
a[j]:=a[j-2];
end;
a[z+1]:=a[z];
a[z+2]:=a[z];
z:=z+1;
end;end;
for i:=1 to n do write(a[i],' ');
readln;
end.

Вот примерный текст, но тут ошибка

[domovou]

uses crt;
var a:array[1..100] of integer;
z,f,i,j,n,k:integer;
begin
clrscr;
randomize;
readln(n);
f:=n;
z:=1;
for i:=1 to n do begin
                 a[i]:=random(100)-50;write(a[i],' ');
                 end;
k:=n;
writeln;
while z<=f do
      begin
      if (a[z] mod 2=0) then
              begin
                   n:=n+2;
                   for j:=n downto (z+3) do
                       begin
                       a[j]:=a[j-2];
                       end;
              a[z+1]:=a[z];
              a[z+2]:=a[z];
               z:=z+2;
               f:=f+2;
              end;
        z:=z+1;
      end;
for i:=1 to n do write(a[i],' ');
end.