regFace6.pas

program registro6;
{CADASTRO DE INQUILO}
type
    Treajuste = record
        reajuste: string;
    end;
const
    reajuste: Treajuste = (
        reajuste: 'Anual';
    );
type

        Tdata = Record                  {PARA USO EM OUTROS RECORDS}
                dia: integer;
                mes: integer;
                ano: integer;
                end;
        TusoInterno = Record
                codigoPretentendente: integer;
                codigoContato: integer;
                contratoSistema: String;
                codigoInquilino: integer;
                atendenteResponsavel: String;
                fichaEntreguePor: String;
                TdataDeEntregaDaFicha: Tdata;
                end;

        Tencargos = Record              {PARA USO EM TDADOSDELOCACAO}
                seguroContraIncendio: boolean;
                condominio: boolean;
                iptu: boolean;
                end;

        TdadosDaLocacao = Record
                enderecoDoImovel: string;
                codigoDoImovel: integer;
                inicioDoContrato: Tdata;
                prazoDoContratoEmMeses: integer;
                valorDoAluguelEmReais: integer;
                Reajuste: Treajuste;
                destinacao: string;
                encargos: Tencargos;
                observacoes: string;
                end;

        Tdadospessoais = Record
                nomeCompleto: string;
                Sexo: string;
                identidade: integer;
                orgaoExpedidor: string;
                dataDeNascimento: Tdata;
                filiacao: string;
                cpf: integer;
                naturalidadeUF: string;
                nacionalidade: string;
                estadoCivil: string;
                grauDeInstrucao: string;
                enderecoResidencial: string;
                bairro: string;
                cidade: string;
                UF: string;
                CEP:integer;
                telefone: integer;
                celular: integer;
                email: string;
                tipoDeResidencia: string;
                ResideDesde: Tdata;
                NumeroDeDependentes: integer;
                end;

        TdadosDoConjuge = Record
                nomeCompleto: string;
                identidade: integer;
                orgaoExpedidor: string;
                dataDeNascimento: Tdata;
                filiacao: string;
                cpf: integer;
                naturalidadeUF: string;
                nacionalidade: string;
                profissao: string;
                atividadeCasoAutonomo: string;
                cargo: string;
                enderecoDoTrabalho: string;
                dataDaAdmicao: Tdata;
                bairro: string;
                cidade: string;
                UF: string;
                CEP:integer;
                telefone: integer;
                ramal: string;
                celular: integer;
                renda: integer;
                origemDaRenda: string;
                end;

        TdadosProfissionais = Record
                profissao: string;
                atividadeCasoAutonomo: string;
                cargo: string;
                empresa: string;
                dataDaAdmicao: Tdata;
                enderecoDoTrabalho: string;
                bairro: string;
                cidade: string;
                UF: string;
                CEP:integer;
                telefone: integer;
                ramal: string;
                celular: integer;
                renda: integer;
                origemDaRenda: string;
                end;

begin
        writeln('');
        readln();
end.