Конвертер чисел, из римских в арабские

var
  a: string;
  i: integer;
  b: array[1..50] of integer;
  s: longint;
 
begin
  readln(a);
  for i := 1 to length(a) do
  begin
    if not (a[i] in ['I', 'V', 'X', 'L', 'C', 'D', 'M'])
      then halt;
    if a[i] = 'I' then b[i] := 1;
    if a[i] = 'V' then b[i] := 5;
    if a[i] = 'X' then b[i] := 10;
    if a[i] = 'L' then b[i] := 50;
    if a[i] = 'C' then b[i] := 100;
    if a[i] = 'D' then b[i] := 500;
    if a[i] = 'M' then b[i] := 1000;
  end;
  s := 0;
  for i := 1 to length(a) do
  begin
    s := s + b[i];
    if(i > 1) and (b[i - 1] < b[i]) then s := s - 2 * b[i - 1];
  end;
  write(s);
end.

 if not (a[i] in ['I', 'V', 'X', 'L', 'C', 'D', 'M'])
      then halt;

{---------------------------------------------------------------------------------------------}
Uses crt;
{---------------------------------------------------------------------------------------------}
const
Rome : array [1..13] of string = ('M','CM','P','CD','C','XC','L','XL','X','IX','V','IV','I');
Arabic: array [1..13] of integer = (1000,900,500,400,100,90,50,40,10,9,5,4,1);
{---------------------------------------------------------------------------------------------}
Var
net,i,n:integer;
buf,snumber:string;
number : String;
b: boolean;
{--------------------------------------------------------------------------------------------}
Begin
writeln('number:=');Readln(number);
 
n:=1;
while n<length(number)+1 do
            begin
            buf:=number[n]+number[n+1];
            b:=FALSE;
            for i:=1 to 13 do
                     if buf=rome[i] then begin Net:=net+Arabic[i]; n:=n+1; b:=true; end;
            if b=false then
                           begin
                           for i:=1 to 13 do
                                       if number[n]=rome[i] then Net:=net+Arabic[i];
                           end;
            n:=n+1;
            end;
 
 
  WriteLn(Net);
writeln;
end.
{--------------------------------------------------------------------------------------------}