Вывести числа прописью

Program chislo;
Uses crt;
Var a,s,e,d,m: word;
Begin
Clrscr;
Writeln('Введите число: ');
Readln(a);
s:=a div 100;
Case s of
1: Write('Сто ');
2: Write('Двести ');
3: Write('Тристо ');
4: Write('Четыресто ');
5: Write('Пятьсот ');
6: Write('Шестьсот ');
7: Write('Семьсот ');
8: Write('Восемьсот ');
9: Write('Девятьсот ');
end;
d:=(a div 10) mod 10;
Case d of
2: Write('двадцать ');
3: Write('тридцать ');
4: Write('сорок ');
5: Write('пятьдесят ');
6: Write('шестьдесят ');
7: Write('семьдесят ');
8: Write('восемьдесят ');
9: Write('девяносто ');
else
begin
e:=a mod 10;
Case e of
1: Write('одинадцать');
2: Write('двенадцать');
3: Write('тринадцать');
4: Write('четырнадцать');
5: Write('пятнадцать');
6: Write('шестнадцать');
7: Write('семнадцать');
8: Write('восемнадцать');
9: Write('девятнадцать');
end;
end;
end;
m:=a mod 10;
If d<>1 then
Case m of
1: Write('один');
2: Write('два');
3: Write('три');
4: Write('четыре');
5: Write('пять');
6: Write('шесть');
7: Write('семь');
8: Write('восемь');
9: Write('девять');
end;
Writeln;
Write('Это число - ',s,d);
If d<>1 then Write(m)
else Write(e);
End.