Função completar

                 Assign(cao_trabalho,path);
            {$I-}
                    append(cao_trabalho);

                    if IORESULT <> 0 then
                        rewrite(cao_trabalho)
                   else
                        append(cao_trabalho);
           {$I+}

procedure Organizar(amd7:CAO);
        begin
           if amd7 <> nil then
             begin
              Organizar(amd7^.left);
              seek(cao_trabalho,amd7^.cao_cont);
              read(cao_trabalho,CLI);
              write(CLI.nome, ' ');
              write(CLI.idade, ' ');
              write(CLI.sexo, ' ');
              write(CLI.endereco, ' ');
              writeln;
             Organizar(amd7^.right);
            end;
        end;


function PageUp(amd6:CAO; cao_cont6:integer) : CAO; 
       begin 
        if amd6 = nil then  
          PageUp := nil 
        else 
              if cao_cont6 = amd6^.cao_cont then 
                PageUp := amd6 
              else 
                   if cao_cont6 < amd6^.cao_cont then 
                     PageUp := PageUp(amd6^.left,cao_cont6) 
                   else 
                      PageUp := PageUp(amd6^.right,cao_cont6); 
       end;