Como converter de decimal para números romanos em Portugol - Desafio de Programação Resolvido em Portugol

// Converter um número decimal em número romano

programa {
  funcao inicio() {
    // vamos criar um array com os valores decimais possíveis de
    // cada número romano
    inteiro valores_numeros_romanos[] = {1000, 900, 500, 400,
      100, 90, 50, 40, 10, 9, 5, 4, 1}
    // representação dos números romanos
    cadeia numeros_romanos[] = {"M", "CM", "D", "CD",
      "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I"}
    inteiro numero
    cadeia resultado

    // vamos pedir para o usuário informar um número decimal
    escreva("Informe um número decimal: ")
    leia(numero)

    // para guardar o resultado
    resultado = "";

    // o número é maior que zero?
    se (numero > 0) {
      // percorremos o array de valores decimais dos números romanos
      para (inteiro i = 0; i <= 12; i++) {