Arthur Xavier

Boa tarde pessoal, alguém pode me ajudar com este exercício, tenho que criar um procedimento para pesquisar um dado e outro para excluir este dado. program AGENDATXT; uses Crt; var ARQTXT : text; NOME_ARQUIVO: string; NOME : string[40]; TELEFONE : string[8]; TECLA : char; OPCAO : char; {*** Rotinas de Visualizacao ***} procedure CENTER(MENSAGEM : string); var TAMANHO : integer; begin TAMANHO := 40 + length(MENSAGEM) div 2; writeln(MENSAGEM:TAMANHO); end; procedure WRITEXY(X, Y : byte; MENSAGEM : string); begin gotoxy(X, Y); write(MENSAGEM); end; procedure LINE; var I : byte; begin for I := 1 to 80 do write(#205); end; {*** Rotinas de Manipulacao de Arquivos ***} procedure ARQUIVO; begin clrscr; line; center('Criacao de Arquivo'); line; writeln; center('Informe o nome do arquivo TXT a ser criado:'); readln(NOME_ARQUIVO); {Completando o nome informado pelo usuário com a extensão txt} NOME_ARQUIVO := NOME_ARQUIVO + '.txt'; {Associando a variavel a um arquivo texto} assign(ARQTXT, NOME_ARQUIVO); {Criando o arquivo Texto} rewrite(ARQTXT); gotoxy( 1,12); center('Arquivo foi criado'); writexy(25,24,'Tecle algo para voltar ao menu'); TECLA := readkey; close(ARQTXT); end; procedure CADASTRA; begin clrscr; line; center('Cadastramento de Registro'); line; append(ARQTXT); writexy(10, 5, 'Entre com o Nome ..........: '); readln(NOME); writexy(10, 6, 'Entre com o Telefone ......: '); readln(TELEFONE); writeln(ARQTXT, NOME); writeln(ARQTXT, TELEFONE); writexy(25,24,'Tecle algo para voltar ao menu'); TECLA := readkey; close(ARQTXT); end; procedure EXIBIR; var LINHA : byte; begin clrscr; line; assign(ARQTXT,NOME_ARQUIVO); center('Apresentacao de Registros'); line; LINHA := 5; reset(ARQTXT); while not eof(ARQTXT) do begin readln(ARQTXT, NOME); readln(ARQTXT, TELEFONE); gotoxy( 5,LINHA); write(NOME); gotoxy(50,LINHA); write(TELEFONE); LINHA := LINHA + 1; end; writexy(25,24,'Tecle algo para voltar ao menu'); TECLA := readkey; close(ARQTXT); end; {*** Programa Principal ***} begin OPCAO := '0'; while (OPCAO <> '4') do begin clrscr; line; center('Menu Principal'); line; gotoxy(28, 6); write('1 ........ Criar arquivo'); gotoxy(28, 8); write('2 ............ Cadastrar'); gotoxy(28,10); write('3 ..... Exibir registros'); gotoxy(28,12); write('4 ...... Fim de Programa'); gotoxy(28,16); write('Escolha uma opcao ....: '); readln(OPCAO); if (OPCAO <> '4') then case OPCAO of '1' : Arquivo; '2' : Cadastra; '3' : Exibir; else gotoxy(27,24); writeln('Opcao invalida - Tecle algo'); OPCAO := readkey; end; end; end.