esta contida no procedure CamposCli.Write( Nome ) A proxima particula e o read que sera responsavel pela leitura do teclado e o seu armazenamento temporario conforme especificado. Podendo ser escrito em nosso exemplo desta forma:ReadLn(Cli.NomeCLI)Que significa que sera lido o que foi digitado e o conteudo sera armazenado temporariamente no Registro Cli, sendo armazenado na parte NomeCli que e considerado uma variavel comum conforme explicacoes anteriores. Programaprocedure CamposCli; begin WRITE('Nome: '); ReadLn(Cli1.NomeCli); WRITE('End:'); ReadLn(Cli1.EndCli); WRITE('Cep:'); ReadLn(Cli1.CepCli); WRITE('Telefone:'); ReadLn(Cli1.FoneCli); WRITE('Cidade:'); ReadLn(Cli1.CidCli); WRITE('Estado:'); ReadLn(Cli1.EstCli); WRITE('Estado Civil:'); ReadLn(Cli1.Civil); end; 5.4 PROCEDURE MostraCli;Objetivoo objetivo de MostraCli e apresentar na tela o conteudo de um registro de um arquivo, conforme a vontado do usuario.SolucaoA forma encontrada para realizar esta tarefa foi colocar o conteudo de um registro que fora lido anteriormente em um registro rascunho que em nosso caso e o Cli1, declarado acima como do tipo cliente, Cli1:Cliente, o processo de mostragem e feito usando o write da sequinte forma.WRITE('Nome: '); Apresenta na tela Nome:WRITELn(Cli1.NomeCli); Apresenta na tela o conteudo de Cli1.NomeCliProgramaprocedure MostraCli; begin WRITE('Nome: '); WRITELn(Cli1.NomeCli); WRITE('End:'); WRITEln(Cli1.EndCli); WRITE('Cep:'); WRITEln(Cli1.CepCli); WRITE('Telefone:'); WRITEln(Cli1.FoneCli); WRITE('Cidade:'); WRITEln(Cli1.CidCli); WRITE('Estado:'); WRITEln(Cli1.EstCli); WRITE('Estado Civil:'); WRITEln(Cli1.Civil); end;5.5 PROCEDURE SimNao;ObjetivoO objetivo que se deseja alcancar com este procedure, e simplificar a escolha de algo, o tradicional Sim ou Nao em uma pergunta.SolucaoA solucao encontrada foi criar um procedure que iria testar uma variavel a ser digitada pelo usuario, neste nosso a variavel que vai dizer se foi pressionado S ou N sera a variavel T de teste, o procedure e iniciado e a variavel T e atribuida o valor 1, apos este fato entramos em uma condicao de repeticao onde so sera permitida a saida desta se o caracter digitado for S ou N a captura bem como a condicao de ser S ou N e especificado na linhaOque1:=Upcase(ReadKey)Que se le Oque1 e atribuido o valor capturado pela leitura do tecladoUntil Oque1 in ['S','N'];Enquanto o valor da variavel Oque1 for diferente da cadeia de caracter S ou N repita o processo.IF Oque1='N'thenSe o valor contido na variavel Oque1 for igual a N entao atribua o valor de T como sendo 2, senao , isto e no caso de ter sido pressionado S o valor atribuido sera 1.Obs: A variavel T e uma variavel Global portanto a alteracao dela em qualquer parte do programa, altera o seu valor em todo programa. Por esse fator e que podemos usa-la para retornar um valor de forma global.ProgramaProcedure SimNao; begin T:=1; repeat Oque1:=Upcase(ReadKey) Until Oque1 in ['S','N']; Write(Oque1); IF Oque1='N'then begin T:=2; end else begin T:=1; end; end;5.6 PROCEDURE ExisteCliente;ObjetivoO objetivo que se deseja alcancar com a utilizacao deste, e encontrar a existencia de um cliente igual ao nome especificado por nos contido em uma variavel.Este procedure ira procurar por todo arquivo um registro que contenha o nome especificado, se encontrar dira que existe, senao informara que o cliente nao existe no arquivo.SolucaoComo solucao a este problema devemos nos lembra da utilizacao de alguns comando do pascal essencial para o bom entendimento do processo como um todo. Os comandos sao.seek(CadCLI,0)Este comando que e encontrado em nosso procedure