Volvi procedimientos algunas funciones en clue.pas