archivos1y3

{program Ejercio1;



Const
    Max=3;
Type
    TipoArchivo=File of integer;

 Procedure CargaEnteros(var Archivo:TipoArchivo);
    Var
        pos,Valor:Integer;
    Begin
        Pos:=0;
        Valor:=0;
        While (pos<=2) Do Begin
            Readln(Valor);
            Write(Archivo,Valor);
            Pos:=POS+1;
        End;
    End;


 Procedure LeerArchivo(Var Archivo:TipoArchivo);
    Var
        Valor:Integer;
    Begin
        Seek(Archivo,0);
        While not EOF (Archivo) Do Begin
            Read(Archivo,Valor);
            Writeln(Valor);
        End;
    End;


 Procedure CargaValor(Var Archivo:TipoArchivo);
    Var
        Valor:Integer;
    Begin
        Seek(Archivo,FileSize(Archivo));
        Readln(Valor);
        Write(Archivo,Valor);
    End;

 Function Promedio (Var Archivo:TipoArchivo):Real;
    Var
        Aux,Pos,l:Integer;
        Spromedio:Real;
    Begin
        Spromedio:=0;
        Aux:=0;
        Pos:=0;
        l:=FileSize(Archivo);
        Seek(Archivo,0);
        While Not EoF(archivo) Do Begin
            Read(Archivo,Pos);
            Aux:=Pos;
            Spromedio:=Spromedio+Aux;
        End;
        Spromedio:=(Spromedio/L);
        Promedio:=Spromedio;
    End;


 Function BuscaMayor(Var Archivo:TipoArchivo):Integer;
    Var
        Pos,Valor,Mayor:Integer;
    Begin
        Pos:=0;
        Valor:=0;
        Mayor:=0;
        Seek(Archivo,0);
        While Not EoF(Archivo) Do Begin
            Read(Archivo,Pos);
            Valor:=Pos;
            If Valor>Mayor then
                Mayor:=Valor;
        End;
        BuscaMayor:=Mayor;
    End;







Var
    Archivo:TipoArchivo;
    ArchivoPromedio:Real;
    ElementoMayor:Integer;
Begin
    Assign(archivo,'/ip2/lgomez-prueba');
    Rewrite(Archivo);
    Cargaenteros(Archivo);
    LeerArchivo(Archivo);
    CargaValor(Archivo);
    LeerArchivo(Archivo);
    ArchivoPromedio:=Promedio(Archivo);
    Writeln(ArchivoPromedio);
    ElementoMayor:=BuscaMayor(Archivo);
    Write('Elemento mayor del archivo');
    Write(ElementoMayor);
    Close(Archivo);
End.}



Program Ejercicio3;


Type
    Tarchivo=File Of Char;

    Procedure CargaArchivo(var Archivo:Tarchivo);
     Var
        Letra:Char;
     Begin
        Letra:='j';
        While (Letra<>'*')  Do Begin
            Readln(Letra);
            If (Letra='a')or(Letra='E')or(Letra='i')Or(Letra='O')Or(Letra='U')Then
            Write(Archivo,Letra);
        End;
     End;


    Procedure LeerArchivo(Var Archivo:Tarchivo);
    Var
        Valor:Char;
    Begin
        Seek(Archivo,0);
        While not EOF (Archivo) Do Begin
            Read(Archivo,Valor);
            Writeln(Valor);
        End;
    End;

    Procedure ClonaArchivo(Var archivo:Tarchivo; Var Archivo2:Tarchivo);
        Var
            Letra,Aux:Char;
        Begin
            Seek(Archivo,0);
            Seek(Archivo2,0);
            While EoF(Archivo) Do Begin
                Read(Archivo,Letra);
                Aux:=Letra;
                Write(Archivo2,Aux);
            End
        End;



Var
    Archivo,archivo2:Tarchivo;
Begin
    Assign(Archivo,'/ip2/LucasQuiroga-prueba');
    Assign(Archivo2,'/ip2/LucasQuiroga-prueba');
    Rewrite(Archivo);
    Rewrite(Archivo2);
    CargaArchivo(Archivo);
    LeerArchivo(Archivo);
    ClonaArchivo(Archivo,Archivo2);
    LeerArchivo(Archivo2);
    Close(Archivo);
    Close(Archivo2);
End.