Como remover os espaços no final de uma palavra, frase ou texto em Portugol

programa {
  // vamos incluir a biblioteca Texto
  inclua biblioteca Texto --> texto
  
  funcao inicio() {
    caracter caractere // para obter caracteres individuais
    inteiro contador // contador de caracteres
    
    // vamos declarar uma variável para receber uma
    // frase com espaços no início e no fim
    cadeia frase = "   Tenho espaços no início e no fim    "

    // vamos mostrar a frase original
    escreva("A frase original com espaços antes e depois é: #")
    escreva(frase + "#")

    // vamos remover os espaços apenas no final
    // vamos ajustar para o último caractere
    contador = texto.numero_caracteres(frase) - 1
    // obtemos o último caractere da frase
    caractere = texto.obter_caracter(frase, contador)
    // é um caractere de espaço
    enquanto (caractere == " ") {