Перевести число от 1 до 99 в словесную запись

uses crt;
var st:string;
    n:byte;
begin
clrscr;
repeat
write('Введите число от 1 до 99 n = ');
readln(n);
until n in [1..99];
st:='';
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;
writeln(st);
readln;
end.