Напечатать все натуральные числа X русскими буквами

uses crt;
var st:string;
    n,d:byte;
begin
clrscr;
repeat
write('Введите число от 1 до 100 n = ');
readln(n);
until n in [1..100];
st:='';
if n=100 then st:='сто'
else if n in [1..9] then
 case n of
  1:st:='один';
  2:st:='два';
  3:st:='три';
  4:st:='четыре';
  5:st:='пять';
  6:st:='шесть';
  7:st:='семь';
  8:st:='восемь';
  9:st:='девять';
  end
else if n in [10..19] then
 case n of
 10:st:='десять';
 11:st:='одиннадцать';
 12:st:='двенадцать';
 13:st:='тринадцать';
 14:st:='четырнадцать';
 15:st:='пятндцать';
 16:st:='шестнадцать';
 17:st:='семнадцать';
 18:st:='восемнадцать';
 19:st:='девятнадцать';
 end
else if n>19 then
 begin
  case n div 10 of
  2:st:='двадцать';
  3:st:='тридцать';
  4:st:='сорок';
  5:st:='пятьдесят';
  6:st:='шестьдесят';
  7:st:='семьдесят';
  8:st:='восемьдесят';
  9:st:='девяносто';
  end;
  case n mod 10 of
  1:st:=st+' один';
  2:st:=st+' два';
  3:st:=st+' три';
  4:st:=st+' четыре';
  5:st:=st+' пять';
  6:st:=st+' шесть';
  7:st:=st+' семь';
  8:st:=st+' восемь';
  9:st:=st+' девять';
  end;
 end;
if (n<=20)or(n mod 10=0) then d:=length(st)
else d:=length(st)-1;
writeln(st,' - ',d);
readln;
end.