Como representar os numeros em extenso

  Unidades: array[1..9] of string = (´UM´, ´DOIS´, ´TRES´, ´QUATRO´, ´CINCO´, ´SEIS´, ´SETE´, ´OITO´, ´NOVE´);
  Dez: array[1..9] of string = (´ONZE´, ´DOZE´, ´TREZE´, ´QUATORZE´, ´QUINZE´, ´DEZESSEIS´, ´DEZESSETE´, ´DEZOITO´, ´DEZENOVE´);
  Dezenas: array[1..9] of string = (´DEZ´, ´VINTE´, ´TRINTA´, ´QUARENTA´, ´CINQUENTA´, ´SESSENTA´, ´SETENTA´, ´OITENTA´, ´NOVENTA´);
  Centenas: array[1..9] of string = (´CENTO´, ´DUZENTOS´, ´TREZENTOS´, ´QUATROCENTOS´, ´QUINHENTOS´, ´SEISCENTOS´, ´SETECENTOS´, ´OITOCENTOS´, ´NOVECENTOS´);