Ejercicio 2. Práctica 11

program EJ2P11;

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;
        num:word;
        dir:string[40];

function Categoria(var arch:T_Arch;num:word):char;

        var
                registro:Reg_Cliente;
                cat:char;

        begin
                seek(arch,num-1);
                read(arch,registro);
                cat:=registro.categoria;
                categoria:=cat;
        end;

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 ModificarDireccion(var arch_T_Arch;num:word;dir:string[40]);      {supongo el archivo abierto para escritura}

        var
                registro:Reg_Cliente;
        begin
                seek(arch,num-1);
                read(arch,registro);
                registro.direccion:=dir;
        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
        clrscr;
        assign(arch,'C:/reg.dat');
        CargarArchivo(arch);
        writeln('Ingrese número de cliente ');
        readln(num);
        reset(arch);
        write('La categoria de este cliente es: ',Categoria(arch,num));
        close(arch);
        readln;
end.