Из двух массивов получить третий по правилу

const n=10;var a,b:array [1..n] of real;
c:array[1..1] of real;
i:integer;
begin
write('vvedite a');
for I:= 1 to n do 
read(a[i]);
write('vvedite b');
for i:= 1 to n do  
read(b[i]);
begin
for i:= 1 to n do
begin
c[2*i-1]:=a[i];
c[2*i]:=b[i];
end;
for i:= 1 to n do
write(c[i],'':100);
end;
end.

c:array[1..1] of real;

for i:= 1 to 5 do
begin
c[2*i-1]:=a[i];
c[2*i]:=b[i];
end;

program ex1;
uses crt;
type vector=array [1..10]of real;
      cvector=array [1..20]of real;
var a,b:vector; 
    c:cvector;
 
procedure form(var a:vector);
var i:integer;
begin
for i:=1 to 10 do
begin write('введите элемент');
readln(a[i]);end;
end;
 
procedure print(var a:vector);
var i:integer;
begin
for i:=1 to 10 do
write(a[i],' ');
end;
 
procedure formnew(var c:cvector;a,b:vector);
var i,j,k:integer;
begin
j:=1;k:=10;
for i:=1 to 20 do
begin 
if (i mod 2<>0) then begin c[i]:=a[j];j:=j+1;end;
if (i mod 2=0) then begin c[i]:=b[k];k:=k-1;end;
end;
end;
 
procedure printc(var c:cvector);
var i:integer;
begin
for i:=1 to 20 do
write(c[i],' ');
end;
 
 
 
begin
writeln('заполните первый массив');
form(a);writeln();
writeln('заполните второй массив');
form(b);
write('ваш первый массив: ');print(a);
writeln();
write('ваш второй массив: ');print(b);
writeln();
write('ваш третий(1+2) массив:');formnew(c,a,b);
printc(c);
readln();
end.