Как получить текущие координаты курсора в графическом режиме?

uses graphABC;
procedure MouseDown(x,y,mb:integer);
begin
setpencolor(clRed);
rectangle(x-20,y-20,x+20,y+20);
end;
begin
onmousedown:=MouseDown;
end.

uses graphABC;
var h,w:integer;
procedure MouseDown(x,y,mb:integer);
begin
setpencolor(clRed);
rectangle(x-w div 2,y-h div 2,x+w div 2,y+h div 2);
end;
begin
writeln('Введите размеры прямоугольника');
readln(w,h);
clearwindow;
onmousedown:=MouseDown;
end.

uses graphABC;
var x1,y1,x2,y2:integer;
    f:boolean;
procedure MouseDown(x,y,mb:integer);//нажали кнопку мыши
begin
if not f then//кликнем первый раз, запомним координаты 1 вершины
 begin
  x1:=x;
  y1:=y;
  f:=true;
  end
else//кликнем второй раз, 
 begin
  x2:=x;//запомнили 2 вершину прямоуугольника
  y2:=y;
  f:=false;
  setpencolor(clRed);//рисуем прямоугольник
  rectangle(x1,y1,x2,y2);
 end;
end; 
 
begin
onmousedown:=MouseDown;
end.

uses graphABC;
var x1,y1:integer;
procedure MouseDown(x,y,mb:integer);//нажали кнопку мыши
begin
x1:=x;//запомнили 1 вершину прямоугольника
y1:=y;
end;
procedure MouseUp(x,y,mb:integer);//отпустили кнопку
begin
setpencolor(clRed);//рисуем прямоугольник
rectangle(x1,y1,x,y);
end;
begin
onmousedown:=MouseDown;
onmouseup:=MouseUp;
end.