tp 1 ej 1 c

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 es ', cont, ' es: ');
        read(ent, dato);
        writeln(dato);
    end;
end;

procedure agregarvalor(var ent:archent);
var
    datos:integer;
begin
    writeln('ingrese un valor');
    readln(datos);
    seek(ent,filesize(ent));
    write(ent,datos);
end;

function ultreg(var ent:archent): integer;
var
    dato: integer;
begin
    dato:=0;
    seek(ent, filesize(ent)-1);
    read(ent, dato);
    ultreg:=dato;
end;
var
    ent:archent;
begin
    assign(ent,'c:\arielemiliomartino9898');
    rewrite(ent);
    cargararchivo(ent);
    agregarvalor(ent);
    writeln('el ultimo valor es: ', ultreg(ent));
    close(ent);
end.