pascal graphabc

[Ляличка]

помогите,не могу понять как можно сделать так, что бы задний фон оставался на месте а не мигал

program ud;
uses graphabc;
var i,x,y,r,x1,y2:integer;
begin
SetWindowCaption('Мульфильм');
setwindowwidth(600);
setwindowheight(600);

//zemlja//
rectangle(0,350,600,600);
floodfill(5,360,clgreen);
//nebo//
setpencolor(clskyblue);
rectangle(0,350,600,0);
floodfill(5,300,clskyblue);


//solce//
r:=60;
x:=60;
y:=250;
x1:=61;
y2:=250;
for i:=0 to 15 do
begin
circle(x,y,r);
floodfill(x1,y2,clyellow);
clearwindow;
//zemlja//
rectangle(0,350,600,600);
floodfill(5,360,clgreen);
//nebo//
setpencolor(clskyblue);
rectangle(0,350,600,0);
floodfill(5,300,clskyblue);
x:=x+10;
y:=y-10;
x1:=x1+10;
y2:=y2-10;
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.