Crie um algoritmo que receba do usuário um número romano e converta em arábico

Var
// Seção de Declarações das variáveis
romano:caractere
subtexto :caractere
i:inteiro
letra1:caractere

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
escreval("Digite um número em romano para ser convertido em arábico")
escreval("menor que 4000 e maior que 0")
leia(romano)
para i de 1 ate Compr(romano) faca
subtexto <- Copia(romano,i,1)

escreval(subTexto)

fimpara

Consegui fazer somente isso, o problema está na hora de salvar letra por letra num vetor e saber a posição de cada letra pois se for uma letra menor que a posterior subtrai-se um exemplo é o X antes de C subtrai-se 10 ficando 90 e quando o C vale 100 e quando vem antes de um número maior que ele um exemplo é D ficando 400, acho que somente a letra I, X, C, subtraem-se se estiver antes de um número maior o resto soma-se, o problema está em saber a posição da letra.

Alguém  tem alguma ideia?