Сформировать массив из двух

program mas;
uses crt;
const n=10;
var B,C:array[1..100] of integer;
    A:array[1..100] of real;
    i,k,k1,p,j:integer;
begin
     for i:=1 to n do
     begin
     C[i]:=random(100);
 
     end;
     for i := 1 to n do
     if (i mod 2 =0) then
     begin
     k:=k+1;
     A[k]:=C[i];
     end
     else
     begin
     k1:=k1+1;
     B[k1]:=C[i];
     end;
         for i := 1 to k do
           begin
           A[i]:=A[i]/2;
           end;
           for i := 1 to k1 do
           begin
           B[i]:=B[i]*2;
           end;
 
            Writeln('Количество четных элементов = ',k);
            Writeln('Количество нечетных элементов = ',k1);
            Writeln('massiv C');
            for i:=1 to n do
            Write(' ',C[i],' ');
            Writeln;
            Writeln('massiv A');
            for i := 1 to k do
            write('   ',A[i]);
            Writeln;
            Writeln('massiv B');
            for i := 1 to k1 do
            write('   ',B[i]);
 
            
end.