Explicação:

Esse Programa não possui uma linguagem, então você pode editar para a linguagem desejada, ele pede os dados lê e ordena por em ordem alfabética nome.

var

DADO: conjunto[1..10, 1..5] de caractere

I, J, ATUAL, PROXIMO: inteiro

X: caractere

inicio

{Rotina de entrada}

Para I de 1 até 10 passo 1 faça

  escreva "Nome:  "  

  leia  DADO[I,1]

  escreva "Endereço..:  "

  leia  DADO[I,2]

  escreva "CEP:  "

  leia  DADO[I,3]

  escreva "Bairro:  "

  leia  DADO[I,4]

  escreva "Telefone..:  "

  leia  DADO[I,5]

Fim_para

{Rotina de Ordenação}

Para ATUAL de 1 ate 9 passo 1 faça

   Para PROXIMO  de ATUAL + 1 até 10 passo 1 faça

      Se (DADO[ATUAL,1] > DADO[PROXIMO,1]) então

        {Troca Nomes}

        X = DADO[ATUAL,1]

        DADO[ATUAL,1] = DADO[PROXIMO,1]

        DADO[PROXIMO,1] = X

        {Troca Endereço]

        X = DADO[ATUAL,2]

        DADO[ATUAL,2] = DADO[PROXIMO,2]

        DADO[PROXIMO,2] = X

        {Troca CEP}

        X = DADO[ATUAL,3]

        DADO[ATUAL,3] = DADO[PROXIMO,3]

        DADO[PROXIMO,3] = X

       {Troca Bairro}

       X = DADO[ATUAL,4]

       DADO[ATUAL,4] = DADO[PROXIMO,4]

       DADO[PROXIMO,4] = X

      {Troca Telefone}

       X = DADO[ATUAL,5]

       DADO[ATUAL,5] = DADO[PROXIMO,5]

       DADO[PROXIMO,5] = X

    Fim_se

   Fim_para

 Fim_para

 {Rotina de Saída}

 Para I de 1 até 10 passo 1 faça

    Para  J de 1 até 5 passo 1 faça

       Escreva DADO[I,J]

    Fim_para

 Fim_para

Espero ter ajudado!