prog 2 ej 1 a mejorado

program cargardatos;

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;

var
    ent:archent;
begin
    assign(ent, '/ip2/arielemiliomartino9898');
    rewrite(ent);
    cargararchivo(ent);
    close(ent);
end.