Изобразить фигуру, хлопающую крыльями

uses graphabc;
begin
circle(300,70,50);
circle(300,200,80);
circle(275,60,8);
circle(320,60,8);
line(320,275,330,340);
line(275,275,265,340);
end.

uses
  graphABC, timers,events;
 
var
  t: timer;
  jump: boolean;
 
procedure Man;
begin
clearwindow;
  if jump = true then
  begin
    Circle(300, 100, 25);
  Circle(300, 175, 50);
  circle(290,95,5);
  floodfill(291,95,clgray);
    circle(310,95,5);
  floodfill(311,95,clgray);
  arc(300,105,10,210,330);
  Line(280, 220, 270, 270);
  Lineto(250,280);
  Line(320, 220, 330, 270);
  Lineto(350,280);
    Line(280,160,260,190);
  lineto(200,200);
  lineto(280,160);
    Line(320,160,340,190);
  lineto(400,200);
  lineto(320,160);
    jump := false;
  end
  else
  begin
   Circle(300, 100, 25);
  Circle(300, 175, 50);
  circle(290,95,5);
  floodfill(291,95,clgray);
    circle(310,95,5);
  floodfill(311,95,clgray);
  arc(300,105,10,210,330);
  Line(280, 220, 270, 270);
  Lineto(250,280);
  Line(320, 220, 330, 270);
  Lineto(350,280);
  Line(280,160,260,190);
  lineto(200,150);
  lineto(280,160);
    Line(320,160,340,190);
  lineto(400,150);
  lineto(320,160);
    jump := true;
  end;
    redraw;
end;
 
begin
lockdrawing;
  jump := false;
  t := timer.create(150,man);
end.