Como percorrer os caracteres de uma palavra, frase ou texto em Portugol - Desafio de Programação Resolvido em Portugol

Informe uma palavra ou frase: GOSTO DE PORTUGOL
A palavra ou frase informada foi: GOSTO DE PORTUGOL

O caractere no índice 0 é: G
O caractere no índice 1 é: O
O caractere no índice 2 é: S
O caractere no índice 3 é: T
O caractere no índice 4 é: O
O caractere no índice 5 é:  
O caractere no índice 6 é: D
O caractere no índice 7 é: E
O caractere no índice 8 é:  
O caractere no índice 9 é: P
O caractere no índice 10 é: O
O caractere no índice 11 é: R
O caractere no índice 12 é: T
O caractere no índice 13 é: U
O caractere no índice 14 é: G
O caractere no índice 15 é: O
O caractere no índice 16 é: L

// Como percorrer os caracteres de uma palavra ou frase

programa {
  // vamos importar a biblioteca Texto 
  inclua biblioteca Texto --> tx
  
  funcao inicio() {
    // Variáveis usadas na resolução do problema
    cadeia frase
    caracter c

    // vamos pedir para o usuário informar uma palavra ou frase
    escreva("Informe uma palavra ou frase: ")
    leia(frase)
  
    // vamos mostrar a palavra ou frase que o usuário informou
    escreva("A palavra ou frase informada foi: ", frase, "\n")

    // vamos usar um laço PARA para percorrer todas os
    // caracteres da palavra, frase ou texto
    para (inteiro i = 0; i <= tx.numero_caracteres(frase) - 1; i++) {
      // obtemos o caractere atual
      c = tx.obter_caracter(frase, i)
      // agora que já temos o caractere, vamos imprimí-lo
      // com uma quebra de linha
      escreva("\nO caractere no índice ", i, " é: ", c)
    }    
  }
}