Floodfill. Не заливается - PascalABC.NET

uses graphABC;
var i,c,z,x1,y1,x2,y2,x,y:integer;
A:array of point;
begin
   SetPenWidth(1); //солнце 
   SetPenColor(ClYellow); 
   SetBrushColor(ClYellow); 
   x1 := -50; y1 := -45; 
   x2 := 80; y2 := 60; 
   ellipse(x1, y1, x2, y2); 
   for i:=1 to 25 do 
     begin 
       c:=random(185); 
       z:=random(185); 
       line(0,0,c,z); 
     end; 
   SetBrushColor(Clskyblue); //облака 
   setpencolor(clskyblue); 
   ellipse(225,7,400,45); 
   ellipse(330,28,537,65); 
   ellipse(390,10,640,51); 
   ellipse(17,-10,197,23);
 
   line(0,240,640,240);//море
   fillrect(0,240,640,240);
   floodfill(3,340,clblue);
 
   setpencolor(clwhite); //волны 
   setpenwidth(1); 
   for i:=1 to 7 do begin 
   x:=random(600); 
   y:=random(205); 
   arc(25+x,324+y,15,30,150); 
  end; 
 
   setpencolor(clred);//кораблик
   setpenwidth(2);
   line(200,100,200,270);
   line(200,100,300,185);
   line(200,270,300,185);
   floodfill(270,199,cllightgray);
   line(200,185,300,185);
   line(200,128,300,185);
   line(200,157,300,185);
   line(200,213,300,185);
   line(200,243,300,185);
   setpencolor(clgray); 
   line(150,270,440,270);
   line(150,270,174,320);
   line(174,320,416,320);
   line(440,270,416,320);
   floodfill(319,310,cllightgray);
   setpencolor(clred);
   line(155,280,435,280);
   setpencolor(clolive); 
   setpenwidth(10);
   line(171,312,419,312);
   setpencolor(clbrown); 
   setpenwidth(1);

  begin //берег
   SetLength(A,3); 
   a[0].x:=0; 
   a[0].y:=430; 
   a[1].x:=200; 
   a[1].y:=430; 
   a[2].x:=340; 
   a[2].y:=480; 
   SetPenColor(clolive); 
   curve(A); 
   floodfill(34,458,clolive); 
  end; 
 
    setpencolor(clpurple);//забор
    setpenwidth(1);
    setbrushcolor(clpurple);
    x1:=10;
    x2:=10;
   for i:=1 to 6 do begin
    rectangle (x1,420,x2,480);
    x1:=30*i;
    x2:=10+30*(i-1);
   end;
    rectangle(10,430,150,440); 
    rectangle(10,460,150,470);
   
   setpencolor(clblack); //птицы 
   setPenWidth(1);
   SetBrushColor(clblack);  
   circle(480,120,3);
   circle(540,100,3);
   circle(600,80,3);
   arc(495,125,15,30,150); 
   arc(465,130,15,30,150);
   arc(555,105,15,30,150);
   arc(525,110,15,30,150);
   arc(615,85,15,30,150);
   arc(586,90,15,30,150);   
 
   setpenwidth(3); //горы 
   setpencolor(cltomato); 
   line(290,240,640,240); 
   setpencolor(clblack); 
   setpenwidth(1); 
   line(290,240,380,160);
   line(380,160,470,239);
   MoveTo(357,180); 
   LineTo(370, 175); 
   LineTo(385,185);
   LineTo(403,180);
   floodfill(300,230,cldarkgoldenrod); 
   SetPenWidth(1); 
   SetPenColor(clblack);
   line(400,240,520,185);
   line(520,185,640,240);
   MoveTo(488,200); 
   LineTo(505,195); 
   LineTo(512,202);
   LineTo(520,195);
   LineTo(525,200);
   LineTo(530,196);
   LineTo(551,200);
   floodfill(505,250,clmaroon);
   floodfill(380,230,clred);        
end.