EJ 6 TP 5 INVERTIR ARCHIVO RECURSION

Program GrabarDatosRecursivamente;
{}
Const
    Max=3;

Type
    ArchEnt = File of integer;

////////////////////////////////////////////////////////////////////////////////
Procedure GrabarDatosR(Var Arch1,Arch2: ArchEnt; cont : integer);
var valor: integer;
Begin
    //GrabarDatosR(Arch1,cont);
    if not (cont<0) then
    Begin
        seek(arch1, Cont);
        Read(Arch1, valor);
        write(Arch2, Valor);
        GrabarDatosR(Arch1,Arch2,cont-1);
    End;
End;
////////////////////////////////////////////////////////////////////////////////
Procedure CarDatArch(Var Arch:Archent);
Var
    i,Dato:integer;
Begin
    For i:=1 to Max do
    Begin
        Writeln('Ingrese un valor a meter en el archivo');
        Readln(Dato);
        Write(Arch,Dato);
    End;
End;
////////////////////////////////////////////////////////////////////////////////
Procedure ImpArchR(Var Arch:Archent);
Var
    Dato:Integer;
Begin
    seek(arch,0);
    While (not Eof(Arch)) do
    Begin
        Read(Arch,Dato);
        Writeln(Dato);
    End;
End;
////////////////////////////////////////////////////////////////////////////////
{PROGRAMA PRINCIPAL}
Var
    Archiduque1,Archiduque2:ArchEnt;
    i:integer;
Begin
    Assign(Archiduque1, '/ip2/arielillo');
    Assign(Archiduque2,'/ip2/arielillo2');
    Rewrite(Archiduque1);
    Rewrite(Archiduque2);
    CarDatArch(Archiduque1);
    writeln('el primer archivo es');
    ImpArchR(Archiduque1);
    i:=Filesize(archiduque1)-1;
    GrabarDatosR(Archiduque1,Archiduque2,i);
    writeln('el archivo resultado quedo:');
    ImpArchR(Archiduque1);
    writeln('el archivo resultado quedo:');
    ImpArchR(Archiduque2);
    Close(Archiduque1);
    Close(Archiduque2);
End.