Обьясните как дублировать...на моём примере пожалуйста!!!

  Var
   a : array (1..100) of integer;
   n, f0,f1,f2, i^ integer;
 BEGIN
 writeln ('введите элементы массива');
 readln (n);
 writeln ('Введите элементы');
 read (a(i));
  readln;
   begin
   f0:=0;
   f1:=1;
   f2:=1;
   for i:=2 to n do
     begin
      f0:=f1;
      f1:=f2;
      f2:=f1+f0;
    end.
   end.

const
  max=5;{êîëè÷åñòâî ýëåìåíòîâ ìàññèâà}
var
  a:array [1..max] of integer;
  i,j:integer;
{ôóíêöèÿ ïðîâåðêè ÿâëÿåòñÿ ëè ÷èñëî n ÷èñëîì èç ïîñ-òè ôèáîíà÷÷è}
function Fib(n:integer):boolean;
var
  c1,c2,c3: Longint;
  fl:boolean;
begin
  fl:=false;
  c1:=1;
  c2:=1;
  if n=1 then
    fl:=true;
  while (fl<>true) and (c3<=n) do
  begin
    c3:=c1+c2;
    if n=c3 then
      fl:=true;
    c1:=c2;
    c2:=c3;
  end;
  Result:=fl
end;
{îñíîâíîé òåêñò ïðîãðàììû}
begin
  {çàäàåì è âûâîäèì ìàññèâ}
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to max do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ')
  end;
  writeln;
  writeln('Ïîëó÷åííûé ìàññèâ:');
  for i:=1 to max do
    if fib(a[i]) then
      write(a[i],a[i],' ')
    else
      write(a[i],' ');
  writeln
end.