Дано натуральное N<=100. Записать это число русскими словами. (Например: двадцать один, девяносто три) - Pascal(Паскаль)

uses crt;
var st:string;
    n:byte;
begin
clrscr;
repeat
write('Введите число от 1 до 100 n = ');
readln(n);
until n in [1..100];
st:='';
case n of
100:st:='сто';
 10:st:='десять';
 11:st:='одиннадцать';
 12:st:='двенадцать';
 13:st:='тринадцать';
 14:st:='четырнадцать';
 15:st:='пятнадцать';
 16:st:='шестнадцать';
 17:st:='семнадцать';
 18:st:='восемнадцать';
 19:st:='девятнадцать';
else
  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.