program agenda;
uses crt;
const
 MAX = 100;
var
nomes  : array[1..MAX] of string;
lista:array[1..MAX] of record
                        tel1,tel2,cel:string[10];
                        nome:string[30];
                           end;

i,j,k:integer;
sn,op:char;
elementoProcurado,aux:string;

procedure incluir;

        begin
            i:=i+1;
                  writeln('Escreva o nome do contato:');
                  readln (nomes[i]);
                  writeln('Insira o Telefone Residencial');
                  readln (lista[i].tel1);
                  writeln('Insira o Celular');
                  readln (lista[i].cel);
                  writeln('Deseja incluir outro telefone?');
                    readln(sn);
                      if sn = 's' then
                       begin
                       writeln('insira o novo telefone');
                       readln(lista[i].tel2)
                       end
                       else
                       end;


procedure ordena;
begin
 FOR i := 1 TO 99 DO
             BEGIN
                                  FOR k := i+1 TO 100 DO
                                  BEGIN

                                                                IF ( lista[i].nome > lista[k].nome ) THEN
                                                                BEGIN
                                                                // Ordena os nomes
                                                                        aux                                     := lista[j].nome;
                                                                        lista[i].nome        := lista[k].nome;
                                                                        lista[k].nome        := aux;
                                                                // Ordena os telefones
                                                                        aux                                             := lista[j].tel1;
                                                                        lista[i].tel1   := lista[k].tel1;
                                                                        lista[k].tel1    := aux;
                                                                // Ordena os emails
                                                                        aux                                     := lista[j].cel;
                                                                        lista[i].cel       := lista[k].cel;
                                                                        lista[k].cel       := aux;
                                                                END;

                                   END;
                        END;

          writeln('Dados organizados!');
          readln;


                END;

procedure busca;
var
 procuraContato: string;
  BEGIN
                        write('Informe o nome: ');  readln(ProcuraContato);
                        writeln('=========================================');
                        IF ( ProcuraContato <> '' ) THEN
                        BEGIN
                                FOR i := 1 TO 10 DO
                                BEGIN
                                        IF (ProcuraContato = lista[i].nome) THEN
                                        BEGIN
                                                writeln('Nome     : ', lista[i].nome);
                                                writeln('Telefone : ', lista[i].tel1);
                                                writeln('Email    : ', lista[i].cel);
                                                writeln('-----------------------------------------');
                                        END;
                                END;

                                IF (ProcuraContato <> lista[i].nome) THEN
                                        writeln('Contato nao encontrado.');

                        END;

                        readln;
                        clrscr;
                END;


procedure listagem;
    var
    x,y:integer;
    begin


       for i := 1+x to y+20 do
         begin
           writeln('Nome:', lista[i].nome, 'telefone:', lista[i].tel1);
         end;
          writeln('Deseja listar mais 20 números?');
          x:=x+20;
          y:=y+20;

    end;

procedure edita;
 var
 procuraContato: string;
    begin
     write('Informe o nome do contato que deseja alterar: ');  readln(ProcuraContato);
                          writeln('=========================================');
                          FOR i := 1 TO 100 DO
                          BEGIN
                                 IF (ProcuraContato = lista[i].nome) THEN
                                 BEGIN
                                                                write('Nome     [ ',lista[i].nome,']     : '); readln( lista[i].nome );
                                                                write('Telefone [ ',lista[i].tel1,'] : '); readln( lista[i].tel1 );
                                                                write('Celular    [ ',lista[i].cel,']    : '); readln( lista[i].cel );
                                                                writeln('-----------------------------------------');
                                 END;
                          END;
                          readln;
                          clrscr;
                END;

begin
    repeat
      writeln('Bem-vindo(a) à agenda!');
      writeln('1- Para incluir novo contato');
      writeln('2- Para busca um contato');
      writeln('3- Para ordenar a lista de contatos');
      writeln('4- Para listagem');
      writeln('5- Para editar contato');
      writeln('6- Sair');
      readln(op);
         case op of
           '1': incluir;
           '2': busca;
           '3': ordena;
           '4': listagem;
           '5': edita;
         else
         end;

  until op = '6'
 end.