Перевод из римской системы счисления в десятичную

program RomeNumber;
var
  EnterNum:String;
begin
  Writeln('Введите римскую цифру от I до X,чтобы увидеть ее десятичный эквивалент');
  Readln(EnterNum);
  case EnterNum of
    'I':Writeln('1');  вот тут беда.Программа распознает ее как тип Char.
    'II':Writeln('2'); а вот этот,как тип String
    'III':Writeln('3');
    'IV':Writeln('4');
    'V':Writeln('5'); и тут
    'VI':Writeln('6');
    'VII':Writeln('7');
    'VIII':Writeln('8');
    'IX':Writeln('9');
    'X':Writeln('10') и тут.
  end
end.

program RomeNumber;
var
  RomeArr:array[1..10]of String;
  ReadNum:String;
  Count:Integer;
begin
  RomeArr[1]:='I';
  RomeArr[2]:='II';
  RomeArr[3]:='III';
  RomeArr[4]:='IV';
  RomeArr[5]:='V';
  RomeArr[6]:='VI';
  RomeArr[7]:='VII';
  RomeArr[8]:='VIII';
  RomeArr[9]:='IX';
  RomeArr[10]:='X';
  Readln(ReadNum);
  for Count:=1 to 10 do 
     if ReadNum=RomeArr[Count] then
       Writeln(Count)
end.

begin
  var RNum:array of string:=('I','II','III','IV','V','VI','VII','VIII','IX','X');
  var str:=ReadlnString;
  write(RNum.Select((v,i) -> v=str ? i+1 : 0).Where(v -> v<>0).JoinIntoString);
end.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
 
begin
  var R:='I II III IV V VI VII VIII IX X'.ToWords.ToArray;
  var s:=ReadlnString('Вводите:');
  var k:=R.FindIndex(w->w=s);
  if k>-1 then Writeln(k+1)
  else Writeln('Не могу распознать')
end.

program RomeNumber;
var
  EnterNum:String;
begin
  Writeln('Введите римскую цифру от I до X,чтобы увидеть ее десятичный эквивалент');
  Readln(EnterNum);
  case EnterNum of
    ''+'I':Writeln('1');
    'II':Writeln('2'); 
    'III':Writeln('3');
    'IV':Writeln('4');
    ''+'V':Writeln('5');
    'VI':Writeln('6');
    'VII':Writeln('7');
    'VIII':Writeln('8');
    'IX':Writeln('9');
    ''+'X':Writeln('10')
  end
end.