Numero por Extenso

Mais um programa em pascal, voce entra com um numero de [ 0 a 999] e ele te devolve o numero que voce entro por extenso.. Eu delimitei ate 999, mais pode fazer ate quanto um inteiro suportar...