[pascal]-Obsługa myszy

Próbuję sobie stworzyć program działający w trybie graficznym, który będzie obsługiwany myszką.
W necie znalazłem kilka porad i stworzyłem z tego coś takiego:
program myszka; Uses CRT,GRAPH,DOS; Var x,y,przyciski:word; PROCEDURE PokazMyche; Var r:registers; Begin r.ax:=$0001; Intr($33,r); End; PROCEDURE SchowajMyche; Var r:registers; Begin r.ax:=$0002; Intr($33,r); End; PROCEDURE UstawMyche(x1,y1,x2,y2:word); Var r:registers; Begin r.ax:=$0007; r.cx:=x1; r.dx:=x2; Intr($33,r); r.ax:=$0008; r.cx:=y1; r.dx:=y2; Intr($33,r); End; PROCEDURE PobierzMyche(var x,y,butt:word); Var r:registers; Begin r.ax:=$0003; Intr($33,r); x:=r.cx; y:=r.dx; butt:=r.bx; End; PROCEDURE VgaOn; Var driver,mode:integer; Begin driver:=vga; mode:=vgahi; InitGraph(driver,mode,'c:\FPC\bgi'); End; Procedure OPCJA1; Begin writeln('1 opcja'); End; Procedure OPCJA2; Begin writeln('2 opcja'); End; Procedure OPCJA3; Begin writeln('3 opcja'); End; Begin VgaOn; SetFillStyle(SolidFill,Green); Bar(215,220,275,250); {1} Bar(285,220,345,250); {2} Bar(355,220,415,250); {3} OuttextXY(218,232,'Opcja 1'); OuttextXY(288,232,'Opcja 2'); OuttextXY(358,232,'Opcja 3'); UstawMyche(1,1,635,475); PokazMyche; Repeat PobierzMyche(X,Y,PRZYCISKI); If (PRZYCISKI=1) Then {4} Begin If (X>215) AND (y>220) AND (x<275) AND (y<250) Then OPCJA1; {5} If (X>285) AND (y>220) AND (x<345) AND (y<250) Then OPCJA2; {6} If (X>355) AND (y>220) AND (x<415) AND (y<250) Then OPCJA3; {7} End; Until Keypressed; Nosound; {8} CloseGraph; End.

Problem tkwi w tym, że wyświetla się tryb graficzny wraz z przyciskami, ale klikanie myszką nie daje żadnych efektów.
Czy ktoś wie gdzie jest błąd?

---

Procedure OPCJA2;
Begin
writeln('2 opcja');
End;

Procedure OPCJA3;
Begin
writeln('3 opcja');
End;

w trybie graficznym writeln nie działa
do pisania w trybie graficznym jest np.
textxy(x,y:integer;s:string);

pozdro

Dzieki za radę, ale czy ktoś wie jak odpalić tą obsługę myszki, bo powyższy kod jakoś się nie sprawdza.

Udało mi się rozwiązać mój problem. Zmieniłem kompilator z free pascala na turbo pascala i program działa prawidłowo :P

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl