procedure listcel(j:integer;listagenda:listpessoa);

var
    a,b:integer;
    enter:string;
    temp:pessoa;
    matriz:listpessoa;

begin
    for a:=1 to j-1 do
    matriz[a]:=listagenda[a];
    for a:=1 to j-2 do
        begin
            for b:=a+1 to j-1 do
                begin
                    if (matriz[b].dddc<matriz[a].dddc) then
                        begin
                            temp:=matriz[b];
                            matriz[b]:=matriz[a];
                            matriz[a]:=temp;
                        end;
                    if (matriz[b].dddc=matriz[a].dddc) and (matriz[b].cel<matriz[a].cel) then
                        begin
                            temp:=matriz[b];
                            matriz[b]:=matriz[a];
                            matriz[a]:=temp;
                        end;
                end;
        end;
    clrscr;
    for a:=1 to j-1 do
        writeln('(',matriz[a].dddc,')',' ',matriz[a].cel,' ',' - ',' ',matriz[a].nome,' ',matriz[a].sobrenome);
        writeln('aperte enter para finalizar tarefa');
        readln(enter);
end;