Pascal grafika probléma?

Egy problémám van.

A főprogram:

begin

grafikabeolvas;

repeat

menulap;

until q='q';

end.

Vagy:

begin

grafikabeolvas;

menulap;

readkey;

end.

Az egérkattintásra kéne várnia a programnak, de sehogy sem megy.

Az elsőnél vibrálnak a betűk (mivel folyamatosan újraírja őket)

A másodiknál viszont nem működik a kattintás (ott a billentyűre vár)

Egyébként meg rögtön kilép.

Hogy lehetne megoldani másképp, hogy ne lépjen ki és működjön?