tp 1 ej 4 DEVOLVER POSICION SEGUN VALOR

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;

function devolverposicionsegunvalor(var parch:archent; entero:integer): integer;
var
    dato:integer;
    b:boolean;
begin
    b:=false;
    seek(parch,0);
    while not eof(parch) and not b do
    begin
        read(parch,dato);
        if dato=entero then
        begin
            b:=true;
            devolverposicionsegunvalor:=filepos(parch);
        end
        else
            devolverposicionsegunvalor:=-1;
    end;

end;

var
    char:archent;
    pos,valor:integer;

begin
    assign(char,'c:\arielemiliomartino9898');

    rewrite(char);


    writeln('primer archivo');
    RandomArchivo(char);
    MostrarArchivoChar(char);
    writeln('ingrese un valor a buscar en el archivo y que te devuelva la posicion en donde se encuentra');
    readln(valor);
    pos:=devolverposicionsegunvalor(char,valor);



    writeln(' se encuentra en la posicion:', pos);

    close(char);
end.