Перевод числа в словесную форму

uses crt;
var st:string;
    n,a,b:integer;
begin
repeat
write('Введите число от 1 до 9999 n = ');
readln(n);
until (n>0)and(n<10000);
a:=n div 1000;
b:=n mod 1000;
case a of
1:st:='одна тысяча ';
2:st:='две тысячи ';
3:st:='три тысячи ';
4:st:='четыре тысячи ';
5:st:='пять тысяч ';
6:st:='шесть тысяч ';
7:st:='семь тысяч ';
8:st:='восемь тысяч ';
9:st:='девять тысяч ';
else st:='';
end;
case b div 100 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;
case b mod 100 div 10 of
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;
case b mod 100 of
10:st:=st+' десять';
11:st:=st+' одиннадцать';
12:st:=st+' двенадцать';
13:st:=st+' тринадцать';
14:st:=st+' четырнадцать';
15:st:=st+' пятнадцать';
16:st:=st+' шестнадцать';
17:st:=st+' семнадцать';
18:st:=st+' восемнадцать';
19:st:=st+' девятнадцать';
else
 case b 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);
end.