При нажатии и отпускании левой кнопки мыши линию, квадрат и круг рисовать синим цветом, а для правой кнопки - красным

Program mouseEvent;
 uses GraphABC, Events;
 const r=8;
procedure mDown(x,y,mb: integer); { обработчик нажатия кнопки мыши }
begin
 if mb=1 then textOut(10,10,'Нажата левая кнопка '); { сообщение о нажатой
кнопке }
 if mb=2 then textOut(10,10,'Нажата правая кнопка ');
 Rectangle(x-r,y-r,x+r,y+r); MoveTo(x,y); { рисование квадрата }
end;
procedure mMove(x,y,mb: integer); { обработчик перемещения мыши}
begin
 if mb=1 then LineTo(x,y);
 if mb=2 then SetPixel(x,y,clRed);
 SetWindowCaption(' Координаты курсора: '+IntToStr(x)+', '+IntToStr(y));
 MoveTo(x,y);
end;
procedure mUp(x,y,mb: integer); { обработчик отпускания кнопки мыши}
begin
 FillRect(10,10,160,26); Circle(x,y,r); { стирание области сообщения; рисование круга }
end;
BEGIN
 OnMouseDown := mDown;
 OnMouseUp := mUp;
 OnMouseMove := mMove;
END.