tp 1 ej 3 c COPIAR ARCHIVO A OTRO

program copiarchivo;

{}

Type archent = file of integer;
procedure RandomArchivo(var arch: archent);
var
    Dato, i: integer;
begin
    Randomize;
    Seek(Arch, 0);
    for i:=1 to 10 do Begin
        Dato:= Random(100) + 1;
        Write(Arch, Dato);
    end;
end;

procedure MostrarArchivoChar(var char:archent);
var
    Dato: integer;
begin
    Seek(char, 0);
    //Dato:= -1;
    Writeln('El Archivo es:');
    While not EoF(char) do Begin
        Read(char,Dato);
        Writeln('[',Dato,']');
    end;
end;

procedure copiarchivo(var parch,sarch:archent);
var
    dato:integer;
begin
    seek(parch,0);
    seek(sarch,0);
    while not eof(parch) do
    begin
        read(parch,dato);
        write(sarch,dato);
    end;
end;

var
    arch,char:archent;
begin
    assign(char,'c:\arielemiliomartino9898');
    assign(arch,'c:\arielemiliomartino989');

    rewrite(char);
    rewrite(arch);

    RandomArchivo(char);
    writeln('primer archivo');
    MostrarArchivoChar(char);
    copiarchivo(char,arch);

    writeln('segundo archivo');
    MostrarArchivoChar(arch);

    close(char);
    close(arch);
end.