Olha... não sei estruturar bem uma unit. Tentei colocar no arquivo 1 - o programa principal - a parte_2_teste, que seria a unit de data, mas o pascal acaba me retornando dizendo que a biblioteca dos, que você colocou na resposta não foi encontrada! preciso de ajuda nesse aspecto do programa.
Edit¹: GETDATE não foi declarado dentro do escopo de PROGRAM!
Edit²: O arquivo dos.pas não foi encontrado! programa feito até o exato momento:
Program Gerenciador_de_livros_IFPB ;uses crt,parte_2_teste;varopcao,genero,escolha_livro:integer;locar_livro,codigo_livro_locado,codigo_livro_devolvido:string; procedure principal; begin writeln('Gerenciador de livros IFPB'); writeln; writeln('=========================='); writeln; writeln('Sr. usuário, selecione uma opção: '); writeln; writeln('1 - Locar livros;'); writeln('2 - Devolver livros;'); writeln('3 - Ver livros sugeridos;'); writeln('4 - Ver situação dos livros;'); writeln('5 - Sair do programa.'); read(opcao); end; Begin principal; if opcao=1 then begin writeln('Qual livro você deseja locar?'); read(locar_livro); writeln('Informe o código do livro'); read(codigo_livro_locado); writeln; writeln('O livro ',locar_livro,' de código ', codigo_livro_locado, ' foi locado com sucesso!'); writeln('A data de entrega do livro ficou para:'); end; if opcao=2 then begin writeln('Informe o código do livro que você deseja devolver:'); read(codigo_livro_devolvido); writeln('Livro devolvido com sucesso!'); end; if opcao=3 then begin writeln('Insira um gênero:'); writeln('1 - Conto'); writeln('2 - Romance'); writeln('3 - Drama'); writeln('4 - Ficção'); read(genero); end; if genero=1 then begin writeln('Eu recomendo que você leia: O Gato de Botas'); end; if genero=2 then begin writeln('Eu recomendo que você leia: O Dia da Tempestade'); end; if genero=3 then begin writeln('Eu recomendo que você leia: O Carrosel'); end; if genero=4 then begin writeln('Eu recomendo que você leia: As Crônicas de Nárnia'); end; if opcao=4 then begin writeln('Escolha um dos livros a seguir: '); writeln('1 - O Gato de Botas'); writeln('2 - O Dia da Tempestade'); writeln('3 - O Carrosel'); writeln('4 - As Crônicas de Nárnia'); read(escolha_livro); end; if escolha_livro=1 then begin writeln('O livro "O Gato de Botas" está disponível para locação'); end; if escolha_livro=2 then begin writeln('O livro "O Dia da Tempestade" está disponível para locação'); end; if escolha_livro=3 then begin writeln('O livro "O Carrosel" está disponível para locação'); end; if escolha_livro=4 then begin writeln('O livro "As Crônicas de Nárnia" está disponível para locação'); end; if opcao=5 then begin writeln('Aperte uma tecla para sair do programa'); readkey; end; End.