Pascal - Unit mouse

Ciao a tutti!

Ho un problema con questo programma:

program ProvaMouse;
uses crt, mouse;

var a:string;

begin
 InitMouse; (* Inizializzazione del mouse *)
 clrscr;
 write('Inserire una frase ');
 readln(a); (* A questo punto il programma si blocca *)
 writeln;
 writeln('Testo letto: ',a);
 readln;
 DoneMouse; (* Chiusura del controllo sul mouse *)
end.

Non riesco a gestire il controllo del mous e l' input da tastiera contemporaneamente.
Come posso risolvere il problema?

Grazie!

Penso dipenda dal fatto che debba essere preceduta da DONEMUOSE.

cioè dal fatto che non possano essere letti insieme il mouse(colla unit mouse) e una string (da "readln". Utilizzando Free Pascal è così. Sarà così anche nel tuo caso.

Grazie per la risposta!

Anche io utilizzo Free Pascal, quindi seguirò il tuo consiglio.

A cosa ti serve, ho caricato poco fa un esempio di utilizzo di Thread.
In pratica più processi contemporaneamente, è così che fanno funzionare le applicazioni grafiche.
Guarda se ti può servire.

Nulla in particolare.
Stavo solo confrontando la gestione del mouse sul Turbo Pascal 7 e Free Pascal.

Per quanto riguarda le tue recenti pubblicazioni, ti faccio i miei compilmenti!

Lavoro davvero notevole!