дано целое число в диапазоне 100-999.вывести строчку -словесное описание данного

Больше мороки чем сложности...

Type int=100..999;
Var x:int;
Begin
 readln(x);
 case (x div 100) of
   1:write('100 ');
   2:write('Двести ');
   3:write('Триста ');
   4:write('Четыреста ');
   5:write('500 ');
   6:write('Шестьсот ');
   7:write('Семьсот ');
   8:write('Восемьсот ');
   9:write('Девятьсот ');
 end;
 if ((x mod 100) div 10)=1 then
   case (x mod 10) of
     0:write('десять ');
     1:write('одиннадцать ');
     2:write('двенадцать ');
     3:write('тринадцать ');
     4:write('четырнадцать ');
     5:write('пятнадцать ');
     6:write('шестнадцать ');
     7:write('семнадцать ');
     8:write('восемнадцать ');   
     9:write('девятнадцать ');
   end
  else
   begin
    case ((x mod 100) div 10) of
      2:write('двадцать ');
      3:write('30 ');
      4:write('40 ');
      5:write('пятьдесят ');
      6:write('шестьдесят ');
      7:write('70 ');
      8:write('восемьдесят ');
      9:write('девяносто ');
    end;
    case (x mod 10) of
      1:write('один');
      2:write('два');
      3:write('три');
      4:write('четыре');
      5:write('5');
      6:write('6');
      7:write('семь');
      8:write('восемь');
      9:write('девять');
    end;
   end;
End.