Нарисовать область в которую попадет точка

uses graphABC;
var c:integer;
    m:real;
begin
setwindowsize(500,500);
centerwindow;
c:=250;
m:=(c-20)/5;
Brush.Style:=bsHatch; 
Brush.Hatch:=bhCross;
Brush.Color:=clBlue;
polygon((c-round(2*m),c-round(3*m)),(c+round(4*m),c-round(3*m)),
        (c+round(4*m),c+round(m)),(c-round(2*m),c+round(m)),(c-round(2*m),c-round(3*m)));
Brush.Style:=bsClear;         
line(0,c,windowwidth,c);
textout(windowwidth-20,c-20,'X');
line(c,0,c,2*c);
textout(c+5,0,'Y');
textout(c+5,c+10,'0');
//засечки и подписи по осям
for var i:=1 to 5 do
 begin
  line(c+round(i*m),c-3,c+round(i*m),c+3);
  line(c-round(i*m),c-3,c-round(i*m),c+3);
  textout(c+round(i*m),c+10,floattostr(i));
  textout(c-round(i*m),c+10,floattostr(-i));
  line(c-5,c-round(i*m),c+5,c-round(i*m));
  textout(c-25,c-round(i*m)-5,inttostr(i));
  line(c-5,c+round(i*m),c+5,c+round(i*m));
  textout(c-25,c+round(i*m)-5,inttostr(-i));
 end;
 
end.