Проблема с real !

[BuTeK1]

Уважаемые прграммисты !
Я написал программу, но она не выводит точку (sector). Если делать с integer то всё работает ! Но мне надо с real чтобы были десятичные числа ! Подскажите где ошибка !


Program uzd1;

Uses graph,crt; {podklu4enije graf.modula}
const radius=1; ox=-1; oy=-1;

Var r,x,y,e,midx,midy:integer;
var a,b,c,d:real;
Begin
clrscr;

writeln('Vvedite to4ki');
read(a,b);


if ((a=0) and (b>=0) and (b<=2)) or
((b=0) and (a>=0) and (a<=2)) or
((b=2) and (a>=0) and (a<=2)) or {Pravij kvadrat}
((a=2) and (b>=0) and (b<=2)) or

((b=0) and (a<=-2) and (a>=-4)) or
((b=2) and (a<=-2) and (a>=-4)) or {Levij kvadrat}
((a=-2) and (b>=0) and (b<=2)) or
((a=-4) and (b>=0) and (b<=2))
then
writeln('To4ka nahoditsa na liniji')
else

if ((a>0) and (a<2) and (b<2) and (b>0)) or
((a>-4) and (a<-2) and (b<2) and (b>0)) or
(a=-1) and (b=-1)
then writeln('v figure')

else
writeln('To4ke ne v figure');
if sqr(a-ox)+sqr(b-oy) = radius then writeln('To4ka na liniji'); {Krug}




x:=detect;{opredelenije graf. draivera}

InitGraph(x,y,' ');{inicializacija grafiki}

e:=graphresult;

if e<>grok then writeln ('ERROR');


CLEARDEVICE;
SETCOLOR(1);
MOVETO(GETMAXX DIV 2, GETMAXY DIV 2);
OUTTEXTXY(GETX, GETY,'0');


midx:=getmaxX div 2;

midy:=getmaxy div 2;

Line(0, round(GetMaxY/2), GetMaxX,

Round(GetMaxY/2));{goriz. linija}

Line(round(GetMaxX/2), 0,

Round(GetMaxX/2), GetMaxY); {vertikalnaja linija}


Rectangle(midx-400,midy+0,midx-200,midy-200);

rectangle(midx - 0,midy - 200 ,midx + 200 , midy + 0 );

Circle (midx-100, midy+100,100);

SetfillStyle(5,brown);
floodfill(midx-100,midy+100,blue);
floodfill(midx+100,midy-100,blue);
floodfill(midx-300,midy-100,blue);


setcolor(green);
outtextxy(midx+5,midy-200,'+2');
outtextxy(midx-200,midy-10,'-2');
outtextxy(midx+200,midy-10,'+2');
outtextxy(midx-400,midy-10,'-4');
outtextxy(midx+5,midy+200,'-2');
Setfillstyle(1,4);
setcolor(4);
Sector (midx+x*100,midy-y*100,0,360,4,4);
readkey;
Readln;

CloseGraph; {zakritie grafiki}

End.

[BuTeK1]

спасибо уже не надо !

[BuTeK1]

К сожалению с кругом не выходит ! Когда пишу -1.1 и -1.2 пишет что точка не в фигуре хотя точка в фигуре !