паскаль Напечатать значение вводимого числа от 1 до 10 римскими цифрами

var
  i,n:byte;
begin
  Write('Введите натуральное число от 1 до 10: ');
  Read(n);
  if not (n in [1..10]) then Writeln('Недопустимое значение')
  else
    Write('В римской записи: ');
    case n of
    4: Writeln('IV');
    5: Writeln('V');
    6: Writeln('VI');
    7: Writeln('VII');
    8: Writeln('VIII');
    9: Writeln('IX');
    10: Writeln('X');
    else
      begin for i:=1 to n do Write('I'); Writeln end
    end;
end.

Тестовое решение:
Введите натуральное число от 1 до 10: 3
В римской записи: III

Спасибо!

Пожалуйста