Передвижение фигуры при клике на область внутри фигуры

uses GraphABC;
 
var px1: integer;
var py1: integer;
 
procedure mousemove(x,y,mb: integer); 
begin
clearwindow();
begin
if mb=1 then
line(px1,py1,px1+50,py1);
line(px1,py1+100,px1+50,py1+100);
line(px1,py1,px1,py1+100);
line(px1+50,py1+100,px1+50,py1);
end;
px1 :=x-25;
py1 :=y-50;
end;
 
 
begin
SetWindowTitle('Графическое окно');
Setwindowsize(800,600); //размер окна
 
px1 :=40;
py1 :=60;
 
OnMousemove:=Mousemove;
end.

uses graphABC;
var f:boolean;
    x1,y1,px1,py1,dx,dy:integer;
procedure MouseDown(x,y,mb:integer);
begin
//если курсор на прямоугольнике
if (x>=px1-25)and(x<=px1+25)and(y>=py1-50)and(y<=py1+50) then 
 begin
  f:=true;//вклбчим перемещение
  x1:=x;//начальные координаты
  y1:=y;
 end; 
end;
procedure MouseMove(x,y,mb:integer);
begin
if f then//если вклбчено перемещение
 begin
  clearwindow;//очистим экран
  dx:=x-x1;//приращение по осям
  dy:=y-y1;
  if px1<25 then px1:=25;//границы окна
  if px1>windowwidth-25 then px1:=windowwidth-25;
  if py1<50 then py1:=50;
  if py1>windowheight-50 then py1:=windowheight-50;
  px1:=px1+dx;//новые координаты центра прямоугольника
  py1:=py1+dy;
  rectangle(px1-25,py1-50,px1+25,py1+50);//рисуем
  x1:=x;//меняем исходные координаты
  y1:=y;
  redraw;//перерисовываем
 end;
end;
procedure MouseUp(x,y,mb:integer);
begin
f:=false;//отпустили кнопку, конец перемещения
end;
 
begin
SetWindowTitle('Графическое окно');
Setwindowsize(800,600); //размер окна
CenterWindow;//центр монитора
px1:=windowwidth div 2;
py1:=windowheight div 2;
rectangle(px1-25,py1-50,px1+25,py1+50);
lockdrawing;
onmousedown:=MouseDown;
onmousemove:=MouseMove;
onmouseup:=MouseUp;
end.