program ejercicio4;

var
  f1, f2, f3: file of integer;
  n1, n2, n3: integer;
  limit1, limit2: integer;
  i, j: integer;

begin
    assign(f1, 'enteros1.dat');
    assign(f2, 'enteros2.dat');
    assign(f3, 'enteros1y2.dat');

    rewrite(f1);
    write('Ingrese un limite de elementos para el archivo: ');
    read(limit1);
    write('Ingrese una secuencia de numeros: ');
    for i:=1 to limit1 do
        read(n1);
    writeln('----------------------------------------');
    close(f1);

    rewrite(f2);
    write('Ingrese un limite de elementos para el archivo: ');
    read(limit2);
    write('Ingrese una secuencia de numeros: ');
    for j:=1 to limit2 do
        read(n2);
    writeln('----------------------------------------');
    close(f2);

    reset(f1);
    reset(f2);
    rewrite(f3);
    while (not(eof(f1))) and (not(eof(f2))) do
       begin
        read(f1, n1);
        write(f3, n1);
        read(f2, n2);
        write(f3, n2);
       end;

    while (not(eof(f1))) do
       begin
        read(f1, n1);
        write(f3, n1);
       end;

    while (not(eof(f2))) do
       begin
        read(f2, n2);
        write(f3, n2);
       end;

    close(f1);
    close(f2);
    close(f3);

    reset(f3);
    while (not(eof(f3))) do
       begin
        read(f3, n3);
        write(n3);
       end;
    close(f3);
    readln;
    readln;
end.