Dividir numero de 4 cifras

algoritmo cuatro_cifras;
Variables
x1,x2,x3,x4,num,var :enteros;
Inicio
Escribir("Ingrese numero a dividir"
Leer (num);
var=num
Si (num>= 1000) AND (num=<9999) entonces
INICIO
x1= var MOD 10
var= var Div 10
x2= var MOD 10
var= var Div 10
x3= Var MOD 10
var= var Div 10
x4= Var MOD 10
Escribirln(" Su numero:",num, "esta compuesto por", x4,"-",x3,"-",x2,"-",x1);
FIN
Sino
Escribirln("su numero no tiene 4 sifras U.U Pjuo";
Fin.