Реакция на нажатие клавиш мыши

Program program9; 
uses GraphABC,Events; 
procedure MouseDown(x,y,mb: integer); 
begin 
if mb=1 then 
begin 
if(x>0)and(x<windowwidth div 2)and(y>0)and(y<windowheight div 2) then 
begin 
setfontcolor(clRed); 
setfontstyle(fsBold); 
textout(x-20,y-10,'Sektor I'); 
 
end 
else if(x>windowwidth div 2)and(x<windowwidth)and(y>0)and(y<windowheight div 2) then 
begin 
setfontcolor(clgreen); 
setfontstyle(fsItalic); 
textout(x-20,y-10,'Sektor II'); 
end 
else if(x>0)and(x<windowwidth div 2)and(y>windowheight div 2)and(y<windowheight) then 
begin 
setfontcolor(clblue); 
setfontstyle(fsUnderline); 
textout(x-20,y-10,'Sektor III'); 
end 
else if(x>windowwidth div 2)and(x<windowwidth)and(y>windowheight div 2)and(y<windowheight) then 
begin 
setfontcolor(clbrown); 
setfontstyle(fsNormal); 
textout(x-20,y-10,'Sektor IV'); 
end; 
end; 
end; 
begin 
line(1,windowheight div 90,windowwidth,windowheight div 1); 
onmousedown:=mouseDown; 
end.

uses GraphABC;
 
const
  Gren = RGB(0, 192, 0);
  Red  = RGB(192, 0, 0);
 
procedure Ups(x, y, btn : Integer);
 
  procedure Show(x, y : Integer; c : Color; msg : String);
  begin
    Font.Color := c;
    Pen.Color := c;
    Circle(x, y, 1);
    TextOut(x + 5, y - 5, msg);
  end;
  
begin
  if x / y > Window.Width / Window.Height then
    Show(x, y, Gren, '1 часть')
  else
    Show(x, y, Red , '2 часть');
end;
 
begin
  Line(0,0,Window.Width,Window.Height);
  Brush.Style := bsClear;
  Pen.Width := 2;
  onMouseDown := Ups;
end.