Meti la funcion Distancia y el Procedimiento Mover a CLUE y lo ordene un poco