Erro em pascal

ola pessoal estamos fazendo um codigo que exiba numeros por extenso .. valores em reais ex eu digito 21 ai abaixo aparece Vinte e um Reais .. pegamos um codigo mas o mesmo aparece um erro o que pode ta errado? se alquem souber de um sisteminha desse por favor publiquem

o codigo e esse ( estamos usando o pascal zim )

(ele da o seguinte erro)

=>Erro Sintático na linha 84

=>MIL não esperado

detalhe a linha 84 e essa

-----------------------

dez[2] := dois mil;

-----------------------

:(

veja o codigo abaixo:

program nome_ext;

var

uni: Array[1..9] of String;
dez: Array[1..19] of String;
cen: Array[1..9] of String;
ext: Array[1..18] of String;

Num: String;
c, x, un, cn, dz: integer;

begin

 write ('Digite o número(entre 0 e 100.000): ');
 read (n) ;

 if(n>0) and (n<10) then
 uni:= num;

 Case uni of

1: uni[1] := um;
 2: uni[2] := dois;
 3: uni[3] := tres;
 4: uni[4] := quatro;
 5: uni[5] := cinco;
 6: uni[6] := seis;
 7: uni[7] := sete;
 8: uni[8] := oito;
 9: uni[9] := nove;

 end;

 if(n>9) and (n<100) then

 ext:= num;

 Case d of
 1: ext[10] := dez;
 2: ext[1] := onze;
 3: ext[2] := doze;
 4: ext[3] := treze;
 5: ext[4] := quatorze;
 6: ext[5] := quinze;
 7: ext[6] := dezesseis;
 8: ext[7] := dezessete;
 9: ext[8] := dezoito;
 10:ext[9] := dezenove;
 11:ext[11] := vinte;
 12:ext[12] := trinta;
 13:ext[13] := quarenta;
 14:ext[14] := cinquenta;
 15:ext[15] := sessenta;
 16:ext[16] := setenta;
 17:ext[17] := oitenta;
 18:ext[18] := noventa;

 end;

 if(n>=100) and (n<1000) then

 cn:=num;

 case cn of

 1:cen[1] := cento;
 2:cen[2] := duzentos;
 3:cen[3] := trezentos;
 4:cen[4] := quatrocentos;
 5:cen[5] := quinhentos;
 6:cen[6] := seiscentos;
 7:cen[7] := setecentos;
 8:cen[8] := oitocentos;
 9:cen[9] := novecentos;

 end;

 if (n>=1000) and (n<=100.000) then

 dez:=num;

 dez[1] := mil;
 dez[2] := dois mil;
 dez[3] := tres mil;
 dez[4] := quatro mil;
 dez[5] := cinco mil;
 dez[6] := seis mil:
 dez[7] :=sete mil;
 dez[8] := oito mil;
 dez[9] := nove mil;
 dez[10]:= dez mil;
 dez[11]:= vinte mil;
 dez[12]:= trinta mil;
 dez[13]:= quarenta mil;
 dez[14]:= cinquenta mil;
 dez[15]:= sessenta mil;
 dez[16]:= setenta mil;
 dez[17]:= oitenta mil;
 dez[18]:= noventa mil;
 dez[19]:= cem mil

 end;
write (num);

 End

End.