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

Больше мороки чем сложности...Type int=100..999;Var x:int;Begin readln(x); case (x div 100) of   1:write('Сто ');   2:write('Двести ');   3:write('Триста ');   4:write('Четыреста ');   5:write('Пятьсот ');   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('тридцать ');      4:write('сорок ');      5:write('пятьдесят ');      6:write('шестьдесят ');      7:write('семьдесят ');      8:write('восемьдесят ');      9:write('девяносто ');    end;    case (x mod 10) of      1:write('один');      2:write('два');      3:write('три');      4:write('четыре');      5:write('пять');      6:write('шесть');      7:write('семь');      8:write('восемь');      9:write('девять');    end;   end;End.