Определить, является ли текст правильной записью римскими цифрами целого числа от 1 до 38

Var s:string;
    n,i:byte;
    b:boolean;
Begin
    write('Введите текст из заглавных латинских букв: ');readln(s);
    i:=0;b:=true;
     While (i<Length(s)-1)and(b) do
      Begin
       inc(i);
       if not(s[i]>=s[i+1]) then 
        if not((s[i]='I')and((s[i+1]='V')or(s[i+1]='X'))) then b:=false;
      End;
    if not((s[1]='I')or(s[1]='V')or(s[1]='X')) then b:=false;
    i:=0;n:=0;
    if b then
     Begin
      While i<Length(s) do
       Begin
        inc(i);
        if s[i]='X' then n:=n+10;
        if s[i]='V' then n:=n+5;
        if (s[i]='I')and(s[i+1]='V') then 
         Begin
          n:=n+4;
          inc(i);
         End;
        if (s[i]='I')and(s[i+1]='X') then 
         Begin
          n:=n+9;
          inc(i);
         End;
        if s[i]='I' then n:=n+1;
       End;
      if n=0 then 
       if s[1]='I' then n:=1 
        else if s[1]='V' then n:=5
         else if s[1]='X' then n:=10;
      writeln('Запись правильная!Число в десятичной системе счисления: ',n);
     End
      else writeln('Запись не правильная!')
End.