Преобразовать один массив в другой

Massiv_b[i]:=…;
Massiv_b[i+1]:=…;
Massiv_b[i+2]:=136;
Massiv_b[i+3]:=198;
Massiv_b[i+4]:=348;        //вывести это число на экран
Massiv_b[i+5]:=…;

 var
 i,k: integer;
 massiv_a: array [1..10] of real;
 massiv_b: array [1..10] of real;
 
  begin
    //МАССИВ первый
massiv_a[1]:=   0.1;
massiv_a[2]:=   0.2;
massiv_a[3]:=   0.3;
massiv_a[4]:=   0.4;
massiv_a[5]:=   0.5;
massiv_a[6]:=   0.6;
massiv_a[7]:=   0.7;
massiv_a[8]:=   0.8;
massiv_a[9]:=   0.9;
massiv_a[10]:=1.0 ;
 
//массив второй
  begin
for k:=Low(massiv_b) to High(massiv_b) do
 massiv_b[k]:=(massiv_a[i]-massiv_a[i+1])*(-1);
 k:=k+1;
 i:=i+1;
   end;
 
   //Проверяю, правильно ли работает программа
 
Label1.Text:='1) '+massiv_b[k].ToString+
             '2) '+massiv_b[k].ToString+
             '3) '+massiv_b[k].ToString;
  end;
 
 
 
 
end.

  begin
for i:=1 to 10 do
 massiv_b[i]:=(massiv_a[i]-massiv_a[i+1])*(-1);
 i:=i+1;
   end;

 for k:=Low(massiv_b) to High(massiv_b) do

for i:=0 to 9 do
 massiv_b[i]:=(massiv_a[i]-massiv_a[i+1])*(-1);
 i:=i+1;
   end;

massiv_a[1]:= 1.05 ;
massiv_a[2]:= 1.25 ;
massiv_a[3]:= 2.25;
massiv_a[4]:= 1.50;

massiv_b[1]:= 0.20 ;
massiv_b[2]:= 1.00 ;
massiv_b[3]:=-0.75 ;

for i:=1 to 10 do
 massiv_b[i]:=(massiv_a[i]-massiv_a[i+1])*(-1);

for i := 1 to 1000 do 
  begin
  massiv_b:=(massiv_a[i] - massiv_a[i+1])*(-1)
  end;

label transition;
...
for i := 1 to 1000 do
  begin
  if i = 1000 then
    begin
    massiv_b[i] := massiv_a[i] * (-1);
    goto transition;
    end;
  massiv_b[i] := (massiv_a[i] - massiv_a[i+1]) * (-1);
  transition:
  end;
...

try
for i := 1 to 1000 do
  begin
  massiv_b[i] := (massiv_a[i] - massiv_a[k+1]) * (-1);
  end;
except
massiv_b[1000] := (massiv_a[1000]) * (-1);
end;