PascalABC: помогите до делать прогу нужно закрасить все остальные стороны прямоугольника.

Program Animaciya;

uses graphABC,crt;

var j,xx,yy: integer;

i: byte;

procedure Podarok(x,y: integer);

begin

setbrushcolor(clbrown);

rectangle(x-25,y-25,x+60,y+30);

line(x-25,y-25,x-10,y-40);

line(x-10,y-40,x+75,y-40);

line(x+75,y-40,x+60,y-25);

line(x+75,y-40,x+75,y+15);

line(x+75,y+15,x+60,y+30);

end;

begin

setwindowsize(800,500);

lockdrawing;

hidecursor;

repeat

for xx:=-100 to 900 do

begin

clearwindow;

setbrushcolor(clolive);

rectangle(0,370,800,400);

setbrushcolor(clgray);

for j:=1 to 20 do

circle(j*100-50,430,30);

Podarok(xx,360);

Podarok(xx+250,360);

Podarok(xx+500,360);

Podarok(xx-250,360);

Podarok(xx-500,360);

Podarok(xx+750,360);

Podarok(xx-750,360);

sleep(10);

redraw;

end;

until keypressed;

end.