Program Cadastro_Cliente_arquivo_texto ;
      uses crt;
      
      const 
      path = 'C\temp\banco_dados.text;
type
     cadastro = record
     nome:string[50];
     sexo:string[20];
     endereco:string[50];
     complemento:string[50];
     bairro:string[50];
     cidade:string[50];
     telefones:array[1..2] of string;
     datacadastro:string[50];
     observacao:string[200];
     end;
     
		arq_text = file of cadastro;  
      		
		var     
		 dados_cliente: cadastro;
                 opcao: char;
                 banco_dados = arq_text;
      
      
     
procedure gerar_arquivo_banco;

begin
                //clrscr;
                writeln;
                readln;
		writeln('*****PRONTO PARA GERAR O ARQUIVO, PRESSIONE UMA TECLA PARA CONTINUAR....');
                assign(banco_dados,path);
		rewrite(banco_dados);
		writeln('.....Parabens, Arquivo texto do banco de dados gerado com sucesso.....');
                writeln('');
                writeln('.....Pressione uma tecla para voltar ao Sistema.......');
                readln();
                close(banco_dados);
end;

procedure novo_cliente;
begin
                         writeln('');
                         clrscr;
                         writeln('**********CADASTRO DE CLIENTE**********');
                         writeln;
			 write('>>>>>Digite o nome do Cliente...:');
			 readln(dados_cliente.nome);
			 write('>>>>>Informe o Sexo(M/F)...:');
			 readln(dados_cliente.sexo);
			 write('>>>>>Informe o endereco...:');
			 readln(dados_cliente.endereco);
			 write('>>>>>Digite Complemento...:');
			 readln(dados_cliente.complemento);
			 write('>>>>>Informe o Bairro...:');
			 readln(dados_cliente.bairro);
			 write('>>>>>Digite a Cidade...:');
			 readln(dados_cliente.cidade);
                         write('>>>>>Digite Um Telefone...:');
			 readln(dados_cliente.telefones[1]);
			 write('>>>>>Digite Outro Telefone...:');
			 readln(dados_cliente.telefones[2]);
			 write('>>>>>Digite a Data de Cadastro...:');
			 readln(dados_cliente.datacadastro);
			 write('>>>>>Digite Uma Observacao...:');
			 readln(dados_cliente.observacao);
			 //gravando dados no arquivo
			 assign(banco_dados,path);
			 reset(banco_dados);
			 write(banco_dados,dados_cliente);
			 writeln('........Parabens,Dados Gravados no Arquivo...');
			 readln;
			 close(banco_dados);
end;

procedure mostrar_dados;

begin
                         assign(banco_dados,path);
			 reset(banco_dados);
			 read(banco_dados,dados_cliente);
			 writeln;
			 writeln('......Dados Extraidos com Sucesso.....');
			 writeln;
			 writeln('Nome do Cliente...',dados_cliente.nome);
			 writeln('Sexo do Cliente...',dados_cliente.sexo);
			 writeln('Endereco do Cliente...',dados_cliente.endereco);
			 writeln('Complemento End...',dados_cliente.complemento);
			 writeln('Cidade...',dados_cliente.cidade);
			 writeln('Telefone[1]...',dados_cliente.telefones[1]);
			 writeln('Telefone[2]...',dados_cliente.telefones[2]);
			 writeln('Data Cadastro...',dados_cliente.datacadastro);
			 writeln('Observacao...',dados_cliente.observacao);
			 writeln('.....Pressione Uma tecla para Continuar........');
			 readln;
			 
end;

Begin // Menu do Programa
     writeln('');
     writeln('**********SISTEMA DE GESTAO INTEGRADA - SGI**********');
     writeln('');
     writeln('**********OPCOES DO SISTEMA (BANCO DE DADOS)*********');
     writeln('');
     writeln('>>>>>[1]...Gerar Arquivo Texto (banco dados)...');
     writeln('>>>>>[2]...Cadastrar Novo Cliente...');
     writeln('>>>>>[3]...Mostrar Dados do Cliente...');
     writeln('>>>>>[4]...Cadastrar Vendas...');
     writeln('>>>>>[5]...Mostrar Registro de Vendas...');
     writeln('>>>>>[6]...Cadastrar Estoque...');
     writeln('>>>>>[7]...Exibir Status Estoque...');
     writeln('>>>>>[8]...Cadastrar Fornecedor...');
     writeln('>>>>>[9]...Exibir Fornecedores...');
     writeln('>>>>>[S]...Sair...');
     writeln('');
     write('>>>>>Digite Uma Opcao...');
     readln(opcao);
        if opcao = '1' then
           gerar_arquivo_banco
        else if opcao = '2' then
          novo_cliente
        else if opcao = '3' then
				  mostrar_dados;  
        

End.