Verificaor de CPF

algoritmo "Verificador de CPF"
var
   CPF: caractere
   digv_um,digv_dois,dig1,dig2,dig3,dig4,dig5,dig6,dig7,dig8,dig9,dig10,dig11: inteiro
inicio
   Escreva ("Informe seu CPF com ('.' e '-'): ")
   Leia (CPF)
   dig1 <- caracpnum(copia(CPF,1,1))
   dig2 <- caracpnum(copia(CPF,2,1))
   dig3 <- caracpnum(copia(CPF,3,1))
   dig4 <- caracpnum(copia(CPF,5,1))
   dig5 <- caracpnum(copia(CPF,6,1))
   dig6 <- caracpnum(copia(CPF,7,1))
   dig7 <- caracpnum(copia(CPF,9,1))
   dig8 <- caracpnum(copia(CPF,10,1))
   dig9 <- caracpnum(copia(CPF,11,1))
   dig10 <- caracpnum(copia(CPF,13,1))
   dig11 <- caracpnum(copia(CPF,14,1))
   digv_um <- (dig1*10+dig2*9+dig3*8+dig4*7+dig5*6+dig6*5+dig7*4+dig8*3+dig9*2)*10%11
   se (digv_um = 10) entao
      digv_um <- 0
   fimse
   digv_dois <- (dig1*11+dig2*10+dig3*9+dig4*8+dig5*7+dig6*6+dig7*5+dig8*4+dig9*3+digv_um*2)*10%11
   se (digv_dois = 10) entao
      digv_dois <- 0
   fimse
   se (dig1=dig2) e (dig2=dig3) e (dig3=dig4) e (dig4=dig5) e (dig5=dig6) e (dig6=dig7) e (dig7=dig8) e (dig8=dig9) e (dig9=digv_um) e (digv_um=digv_dois) entao
      escreval ("CPF inválido")
   senao
      se (digv_um = dig10) e (digv_dois = dig11) entao
         escreval ("CPF válido!")
      senao
         escreval ("CPF inválido!")
      fimse
   fimse
fimalgoritmo