tp 1 ej 1 e MAYOR VALOR

program agregarvalor;

{}
uses crt;
type archent= file of integer;

procedure cargararchivo(var ent:archent);
var
    dato,cont: integer;

begin
    for cont:=1 to 3 do
    begin
        writeln('ingrese un valor');
        readln(dato);
        write(ent, dato);
        clrscr;
    end;
    seek(ent, 0);
    for cont:=1 to 3 do
    begin
        writeln('el dato que ingresaste en ', cont, ' es: ');
        read(ent, dato);
        writeln(dato);
    end;
end;

function mayorvalor(var ent:archent): integer;
var
    datos,mayor:integer;
begin
    seek(ent, 0);
    read(ent,mayor);
    while not eof(ent) do
    begin
        read(ent,datos);
        if mayor<=datos then
            mayor:=datos;
    end;
    mayorvalor:=mayor;
end;

var
    ent:archent;
begin
    assign(ent,'c:\arielemiliomartino9898');
    rewrite(ent);
    cargararchivo(ent);
    writeln(mayorvalor(ent));
    close(ent);
end.