программа с графиком Опции

[Solymr]

есть задание, получилась такая программа.
program figura;
const dx=0.5;
dy=0.4;
var x,y: real;
obl1,obl2,obl3,obl4: boolean;
count: integer;
begin
x:=-3.5;
count:=0;
while x<2.5 do
begin
y:=-3.6;
while y<2.4 do
begin
obl1:=(x>=-3) and (x<=-1)and (y<-x-2) and (y>-3);
obl2:=(x>-1) and (x<=0) and (y>-3) and (y<x);
obl3:=(x>=0) and (x<=1) and (y<1) and (y>-sqrt(4-sqr(x)));
obl4:=(x<=2) and (x>1) and (y<x) and (y>-sqrt(4-sqr(x)));
if obl1 or obl2 or obl3 or obl4 then
begin
write('(',x:2:1,',',y:2:1,')',';');
inc(count);
if not odd(count) then
writeln;
end;

y:=y+dy;
end;
x:=x+dx;
end;
readln;
end.
но правильные точки не выводятся, что не так, кто подскажет?