Pascal/Turbo Pascal - Intercalar vectores

{Mira no se que nivel de programación tienes por ello te dejo esto para encaminarte

en lo que preguntas la intercalación de dos vectores en uno.

Ten presente que en pascal no se pueden definir las matrices durante el proceso devén

  estar definidas al inicio por ello defino dos pequeñas que entren en la otra.

Espero te sirva suerte.}

 program vectores;

 uses

    crt;

  var

   vector1 : array[1..100] of integer;

   vector2 : array[1..50] of integer;

   vector3 : array[1..20] of integer;

   x, y : integer;

  procedure cargavectores;

  var

    cont : integer;

  begin

     for cont := 1 to 50 do

     vector2[cont] := cont * 2;

     for cont := 1 to 20 do

     vector3[cont] := cont * 4;

  end;

  procedure intercalacion;

  var

     i, d : integer;

  begin

      i := 1;

      d := 1;

      repeat

      if d < 51 then

      begin

      vector1[i] := vector2[d];

      i := i + 1;

      end;

      if d < 21 then

      begin

      vector1[i] := vector3[d];

      i := i + 1;

      end;

      d := d + 1;

     until d > 51;

     for i := 1 to 70 do

     write(' ',vector1[i]);

  end;

  begin

      clrscr;

      cargavectores;

      writeln('Contenido Vector 2');

      writeln;

      for x := 1 to 50 do

      write('   ',vector2[x]);

      writeln;

      writeln;

      writeln('Cantenido Vector 3');

      writeln;

      for y := 1 to 20 do

      write('   ',vector3[y]);

      writeln;

      writeln;

      writeln('Contenido de intercalado 2 y 3');

      writeln;

      intercalacion;

      readln;

  end.