Prueba

program PRUEBA;

uses crt;

type
        Reg_Cliente=record
                NumCliente:word;
                nombre:string[30];
                categoria:char;
                direccion:string[40];
                fechaDeAlta:string[8];
                end;

        T_Arch=file of Reg_Cliente;

var
        arch:T_Arch;

Procedure Leer(var arch:T_Arch; var R:Reg_Cliente; var fin:boolean);

            begin
                    if (not eof(arch)) Then
                            begin
                                    read(arch,R);
                                    fin:=false;
                            end
                    else
                            fin:=true;
end;

procedure CargarArchivo(var arch:T_Arch);

            var
                    registro:Reg_Cliente;
                    finArchivo:boolean;
                    RTA:char;
            begin
                    rewrite(arch);
                    Leer(arch,registro,finArchivo);
                    repeat
                            writeln('Ingrese número de cliente');
                            readln(registro.numCliente);
                            writeln('ingrese nombre');
                            readln(registro.nombre);
                            writeln('ngrese categoria ');
                            readln(registro.categoria);
                            writeln('Ingrese dirección');
                            readln(registro.direccion);
                            writeln('Ingrese fecha ');
                            readln(registro.fechaDeAlta);
                            writeln('¿Ingresar mas información? S/N ');
                            readln(RTA);
                    until (RTA='n');
                    close(arch);
            end;

procedure MostrarArchivo(var arch:T_Arch);

            var
                    registro:Reg_cliente;
                    finArchivo:boolean;
            begin
                    reset(arch);
                    Leer(arch,registro,finArchivo);
                    while (not finArchivo) do
                            begin
                                    writeln(registro.numCliente);
                                    writeln(registro.nombre);
                                    writeln(registro.categoria);
                                    writeln(registro.direccion);
                                    writeln(registro.fechaDeAlta);
                                    Leer(arch,registro,finArchivo);
                            end;
                    close(arch);
            end;

begin

        assign(arch,'C:/reg.dat');
        CargarArchivo(arch);
        MostrarArchivo(arch);
        readln;
end.