Ejercicio 3. 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;

function Categoria(num:word):char;

        var
                registro:Reg_Cliente;
                cat:char;

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

procedure ModificarDireccion(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;