Могу ошибатся
uses GraphABC;
var x:integer;
begin
lockdrawing;
For x:=3 to 500 do begin
clearwindow;
circle (249,500,155);
rectangle (250,350,220,200);
circle (235,290,10);
circle (235,250,10);
line (249,202,230,160);
line (219,200,230,160);
circle (228,355,5);
circle (235,355,5);
circle (245,355,5);
circle (241,365,5);
circle (234,365,5);
circle (238,375,5);
redraw;
end;
end.