Rpa007

Olá pessoal. Tenho que fazer um exercício como descrito no título, que converta números romanos em decimal, usando a linguagem Pascal. Assuntos que já vi: Manipulando Strings, REPEAT, FOR, WHILE, CASE e IF. Sei que o maior número possível a ser formado será 3999 (MMMCMXCIX), que tem 9 caracteres. Creio que a chave do programa está em conseguir definir quando terei que subtrair ou somar tal valor. Ex: IV = 4 e VI = 6, XC = 90 e CX = 110. A posição e a quantidade de caracteres é o que define, pelo que entendi. Dúvidas: 1) Lógica: será isso mesmo de verificar o tamanho do algarismo, e fazer: IF length(algarismo) = 1 then WRITELN('O algarismo é...) ~ continuação ~~ ELSE Begin IF length(algarismo) = 2 then Begin IF algarismo[2] > algarismo[1] then algarismo := algarismo[2] - algarismo[1] ELSE algarismo := algarismo [1] - algarismo [2] ... (no caso, será apenas 1, 5, 10, 50, 100, 500, 1000 os valores possíveis, já que são os únicos de 1 algarismo.) O "algarismo[1]" seleciona a primeira letra da variável algarismo, que foi definida como uma string. Da mesma forma o [2]. 2) Begin writeln('Digite o número em algarismos romanos:'); readln(alg); M := 1000; D := 500; I := 1; V := 5; X := 10; L := 50; C := 100; IF length(alg) = 1 then writeln('O número em decimal é ',alg,'.'); readln; End. No código acima, o valor continua sendo exibido em romano (ou seja, ele exibe o mesmo valor que eu digitei.) Como faço para passar a valer o valor em decimal? Ex: Digitei X, é para mostrar 10, porém programa ainda mostra X. 3) Há alguma lógica que funcione melhor para este programa, com os assuntos que eu aprendi? Desculpem-me pelo grande número de perguntas, porém não achei nenhum tópico com dúvidas parecidas. Desde já, agradeço. ___ Tabela com alguns números, para consulta: