Графика: реализовать "Резиновый прямоугольник"

uses graphABC,Events;
var x1,y1,x2,y2:integer;
procedure MouseDown(x,y,mb:integer);//выбор точки
begin
x2:=x;
y2:=y;
end;
procedure KeyDown(key:integer);
begin
if (key=VK_Return) then
 begin
  clearwindow;  //очищаем экран
  rectangle(x1,y1,x2,y2); //рисуем прямоугольник
 end;
end;
begin
x1:=20;//исходная точка
y1:=20;
rectangle(x1,y1,x1+50,y1+20);
onmousedown:=MouseDown;
onkeydown:=KeyDown;
end.

uses graphABC,Events;
var x1,y1,x2,y2:integer;
    f:boolean;
procedure MouseDown(x,y,mb:integer);//выбор точки
begin
if not f and(abs(x-x2)<5)and(abs(y-y2)<5) then f:=true;
end;
procedure MouseMove(x,y,mb:integer);
begin
if f then
 begin
  x2:=x;
  y2:=y;
  clearwindow;  //очищаем экран
  rectangle(x1,y1,x2,y2); //рисуем прямоугольник
 end;
end;
procedure MouseUp(x,y,mb:integer);//прекращение пертаскивания
begin
f:=false;
end;
begin
x1:=20;//исзодная точка
y1:=20;
x2:=x1+50;
y2:=y1+20;
rectangle(x1,y1,x2,y2);
f:=false;
onmousedown:=MouseDown;
onmousemove:=MouseMove;
onmouseup:=MouseUp;
end.