Como percorrer os caracteres de uma palavra, frase ou texto em VisuAlg - Exercícios Resolvidos de VisuAlg

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

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

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

algoritmo "Como percorrer os caracteres de uma palavra ou frase"

var
  // Variáveis usadas na resolução do problema
  frase, c: caractere
  i: inteiro

inicio
  // 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
  escrevaL("A palavra ou frase informada foi: ", frase)

  // vamos usar um laço PARA para percorrer todas os
  // caracteres da palavra, frase ou texto
  escreval
  para i de 1 ate Compr(frase) faca
    // obtemos o caractere atual
    c <- Copia(frase, i, 1)
    // agora que já temos o caractere, vamos imprimí-lo
    // com uma quebra de linha
    escreval("O caractere no índice", i, " é: ", c)
  fimpara

fimalgoritmo