Назначить действие по нажатию на картинку

uses crt,GraphABC,Events;
var x1,y1,x2,y2,i: integer;
 
procedure MouseDown(x,y,mb: integer);
 var a: integer;
begin
if (x>x1) and (x<x2) and
   (y>y1) and (y<y2) then a:=2
   else a:=0;
write(a);
end;
 
 
begin
  setbrushcolor(clred);
  x1:=20; x2:=40; y1:=20; y2:=40;
  rectangle(x1,y1,x2,y2);
for i:=1 to 10 do
  OnMouseDown:=MouseDown;
end.

uses crt,GraphABC,Events;
var x1,y1,x2,y2,i: integer;
 
procedure MouseDown(x,y,mb: integer);   //фактические параметры: координаты клика мышью и клавиша - правая, левая...
 var a: integer;                        //перменная а
begin
if (x>x1) and (x<x2) and                //если координаты клика по х и по у попадают в красный квадрат (то есть больше, чем первое значение по х и у, и меньше, чем второе значение по х и у)
   (y>y1) and (y<y2) then a:=2           //то переменной назначается значение 2
   else a:=0;                            //иначе 0
write(a);                                //также выполняется вывод на экран
end;
 
 
begin
  setbrushcolor(clred);                 //цвет кисти
  x1:=20; x2:=40; y1:=20; y2:=40;       //координаты краев кнопки
  rectangle(x1,y1,x2,y2);               //кнопка
for i:=1 to 10 do                       //цикл с парметром
  OnMouseDown:=MouseDown;  // Событие нажатия на кнопку мыши. (x,y) - координаты курсора мыши в момент наступления события, mousebutton = 1, если нажата левая кнопка мыши
end.