плиз помогите раскрасить человечка и сделать фон,вот в этой програмке...плииииз я не умею(программа паскаль авс)
program chelovek;
uses GraphABC;
procedure P1(x,y:integer);
begin
circle(x,y,10);
ellipse(x-15,y+10,x+15,y+70);
line(x,y+70,x-15,y+100);
line(x,y+70,x+15,y+100);
end;
procedure P2(x,y:integer);
begin
circle(x,y,10);
ellipse(x-15,y+10,x+15,y+70);
line(x,y+70,x,y+100);
end;
var x,y,i:integer;
begin
x:=40;
y:=100;
i:=1;
repeat 
 LockDrawing; 
 ClearWindow; 
 setpenwidth(3);
  if odd(i) then P1(x,y)  else P2(x,y); 
 setpenwidth(10);
  line(0,y+100,windowwidth,y+100); 
 Redraw; 
 Sleep(500); 
 x:=x+5; 
 i:=i+1;
until x>=windowwidth-20;
end.