Pascal/Turbo Pascal - de numeros romanos a arabigos

como puedo hacer para pasar una cadena string q representa un numero en notacion romana a notacion arabiga? (la normal) :p muchisimas gracias ;)

Echale una ojeada a este código
www.geocities.com/diegofrom/pascal.html

no me entendiste bien, disculpa, quiero pasar de numeros romanos a arabigos, no al reves, gracias ;)

Te entendí perfectamente, nunca dije que en esa página estuviera el programa que buscas, simplemente lo mencioné como referencia. Solo tienes que hacer la inversa de lo que allí se hace.

import java.io.*;

public class RomanosArabigos
{
public static void main(String[]args)
{
String sRomanos
BufferedReader stdin=new BufferedReader(new InputStreamReader(System.in));

int iIndex=0;
int iValor=0;

while (iIndex < sRomanos.lenght())
{
if(sRomanos.substring(iIndex, iIndex+1).equals("I"))
{
if(sRomanos.lenght() > iIndex+2)
{
if(sRomanos.substring(iIndex, iIndex+2).equals("II"))
{
if(sRomanos.lenght() > iIndex+3)
{
if(sRomanos.substring(iIndex, iIndex+2).equals("III"))
{
iValor+=3;
iIndex+=3;
}

}
else
{
iValor+=2;

necesito un programa de numeros romanos a atabigos