Доделать анимацию в паскале

program художник; 
uses graphabc; 
var x,,y,i:integer; 
begin 
line(220,120,260,160); 
line(260,160,240,180); 
line(240,180,240,220); 
line(240,220,180,210); 
line(180,210,210,120); 
line(210,120,220,120); 
line(180,210,140,240); 
line(140,240,110,200); 
line(80,220,140,260); 
line(140,260,180,240); 
line(180,240,160,300); 
line(160,300,240,340); 
line(240,340,240,260); 
line(240,260,280,280); 
line(280,280,340,260); 
line(340,260,320,240); 
line(320,240,280,260); 
line(280,260,240,220); 
line(320,240,320,220); 
line(320,220,330,220); 
line(330,220,330,230); 
line(170,305,170,400); 
line(180,310,180,400); 
line(210,325,210,400); 
line(220,330,220,400); 
line(330,230,340,230); 
line(340,230,330,250); 
circle(80,180,40); 
circle(80,160,10); 
circle(80,200,10); 
circle(60,180,10); 
circle(100,180,10); 
ellipse(150,399,188,420); 
ellipse(200,399,240,420); 
setpenwidth(3); 
arc(210,160,10,230,340); 
arc(240,160,10,200,290); 
setpenwidth(2); 
arc(230,180,5,180,360); 
setpenwidth(1); 
ellipse(180,100,260,140);
line(315,200,400,280); 
line(315,200,380,290); 
line(400,280,410,310); 
line(380,290,410,310); 
line(400,280,380,290); 
end.