Перевод чисел в слова

uses Crt;
var num,a,b:longint;
s:String;
 
function tr(var a:longInt):String;
var trz:String;
begin
case a div 100 of
1:trz:='сто ';
2:trz:='двести ';
3:trz:='триста ';
4:trz:='четыреста ';
5:trz:='пятьсот ';
6:trz:='шестьсот ';
7:trz:='семьсот ';
8:trz:='восемьсот ';
9:trz:='девятьсот ';
end;
case a mod 100 of
11:trz:=trz+'одиннадцать ';
12:trz:=trz+'двенадцать ';
13:trz:=trz+'тринадцать ';
14:trz:=trz+'четырнадцать ';
15:trz:=trz+'пятьнадцать ';
16:trz:=trz+'шестьнадцать ';
17:trz:=trz+'семьнадцать ';
18:trz:=trz+'восемьнадцать ';
19:trz:=trz+'девятьнадцать ';
else
case a mod 100 div 10 of
1:trz:=trz+'десять '; 
2:trz:=trz+'двадцать '; 
3:trz:=trz+'тридцать '; 
4:trz:=trz+'сорок '; 
5:trz:=trz+'пятьдесят '; 
6:trz:=trz+'шестьдесят '; 
7:trz:=trz+'семьдесят '; 
8:trz:=trz+'восемьдесят '; 
9:trz:=trz+'девяносто '; 
end;
case a mod 10 of
1:trz:=trz+'один(-на) ';
2:trz:=trz+'два ';
3:trz:=trz+'три ';
4:trz:=trz+'четыре ';
5:trz:=trz+'пять ';
6:trz:=trz+'шесть ';
7:trz:=trz+'семь ';
8:trz:=trz+'восемь ';
9:trz:=trz+'девять ';
end;
end;
tr:=trz;
end;
 
Begin
Write('Введите шестизначное число: ');
Readln(num);
a:=num div 1000;
b:=num mod 1000;
s:=tr(a)+'тысяч(и) ';
If b<>0 then s:=s+tr(b);
Writeln(s);
Readln;
End.