Comando MousePresion
Este comando le permitira mediante la presion de un boton
del Mouse (Click), realizar alguna funcion.

Agrega este cdigo para que veeas lo que hace este comando

            Uses crt,dos,mouse;
            var (define variables)
            begin
                repeat
                     gotoxy(10,10);
                     writeln('Haz Click');
                until mousepresion;
            end.