TMails= ^TOficinas;
TOficinas= RECORD
	identificador: TElemento;
	codigo postal: TElemento;
	numtrabajadores: TElemento;
	TVEntanillas: ARRAY [1..5] of Tventanilla;
END;
TVentanilla = RECORD
	responsable: string;
	estado: boolean;
	código: integer;
END;
TCliente: RECORD
	DNI: string;
	servicio: string;
END;