Нужно написать программу, в которой область (допустим, круг) будет заливаться нестандартной заливкой

uses graphABC;
var xc,yc,x,y,r,c,w,h:integer;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=100;
c:=clRed;
setpencolor(c);
circle(xc,yc,r);
w:=6; //через сколько рисовать точки по горизонтали
h:=4;  //по вертикали
for x:=xc-r to xc+r do
for y:=yc-r to yc+r do
if (sqr(x-xc)+sqr(y-yc)<r*r)and(x mod w=0)and(y mod h=0)  then setpixel(x,y,c);
end.

uses graphABC;
type Tpoint=record //пишем свой тип точка, он вообще-то есть в АВС,
                   //но нужно подключать модуль PointRect
            x,y:integer;
            end;
procedure Zvezda(x,y,r,c:integer);//рисование звезды
var i,a:integer;
    p:array[1..11] of Tpoint;
begin
a:=18;
for i:=1 to 10 do
 begin
  if odd(i) then
   begin
    p[i].x:=x+round(r*cos(a*pi/180));
    p[i].y:=y-round(r*sin(a*pi/180));
   end
  else
   begin
    p[i].x:=x+round(r*cos(a*pi/180)/2);
    p[i].y:=y-round(r*sin(a*pi/180)/2);
   end;
  a:=a+36;
 end;
p[11].x:=p[1].x;
p[11].y:=p[1].y;
MoveTo(p[1].x,p[1].y);
setpencolor(c);
for i:=1 to 11 do
LineTo(p[i].x,p[i].y);
floodfill(x,y,c);
end;
var xc,yc,x,y,w,h,r1,r:integer;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
w:=200;
h:=100;
r:=round(w/30);
setpencolor(clGreen);
rectangle(xc-w,yc-h,xc+w,yc+h);
for x:=xc-w+r to xc+w-r do
for y:=yc-h+r to yc+h-r do
if (x mod (2*r)=0)and(y mod (2*r)=0) then Zvezda(x,y,r,clred);
end.