Программа по переводу римских цифр в арабские

var
    n, state: integer;
    symbol: char;
    ok: boolean;
 
begin
    state := 1;
    ok := true;
    n := 0;
 
    while not eoln do begin
        read(symbol);
        if ((symbol = 'X') or (symbol = 'V') or (symbol = 'I')) then
            case state of
            1: case symbol of
                'X': begin n := 10; state := 2 end;
                'V': begin n := 5; state := 3 end;
                'I': begin n := 1; state := 6 end
               end;
            2: case symbol of
                'X': begin n := 10; state := 2 end;
                'V': begin n := n + 5; state := 3 end;
                'I': begin n := n + 1; state := 6 end
               end;
            3: case symbol of
                'X', 'V': ok := false;
                'I': begin n := n + 1; state := 4 end
               end;
            4: case symbol of
                'X', 'V': ok := false;
                'I': begin n := n + 1; state := 5 end
               end;
            5: case symbol of
                'X', 'V': ok := false;
                'I': begin n := n + 1; state := 7 end
               end;
            6: case symbol of
                'X': begin n := n + 8; state := 7 end;
                'V': begin n := n + 3; state := 7 end;
                'I': begin n := n + 1; state := 5 end
               end;
            7: ok := false;
            end
            else begin
                if ok then
                    writeln(n:2)
                else
                    writeln('error');
                state := 1;
                ok := true
            end;
        end;
readln
end.