Нарисовать птицу

Program Utka;
uses GraphABC;
var x,y,r1,r2,r3,r4:integer;
begin
SetWindowSize(768,512);
x:=WindowWidth div 2;
y:=WindowHeight div 2;
setpenwidth(2);
line(250,420,325,328);
line(512,420,440,328);
line(200,200,140,200);
line(200,180,140,200);
r1:=140;
r2:=10;
r3:=150;
r4:=70;
Ellipse(x-r3,y+r2-r4,x+r3,y+r2+r4);
Circle(250,180,50);
end.

program Utka;
 
uses
  GraphABC;
 
var
  x, y, r1, r2, r3, r4: integer;
 
begin
  SetWindowSize(768, 512);
  x := WindowWidth div 2;
  y := WindowHeight div 2;
  setpenwidth(2);
  
  repeat
    lockdrawing;
    clearwindow;
    line(250, 420, 325, 328);
    line(512, 420, 440, 328);
    line(200, 200, 140, 200);
    line(200, 180, 140, 200);
    r1 := 140;
    r2 := 10;
    r3 := 150;
    r4 := 70;
    Ellipse(x - r3, y + r2 - r4, x + r3, y + r2 + r4);
    Circle(250, 180, 50);
    
    moveto(x + 50, y);
    lineto(350, 250);
    lineto(450, 300);
    lineto(x + 50, y);
    redraw;
    sleep(150);
    lockdrawing;
    clearwindow;
    line(300, 420, 325, 328);
    line(400, 420, 440, 328);
    
    line(200, 200, 140, 200);
    line(200, 180, 140, 200);
    r1 := 140;
    r2 := 10;
    r3 := 150;
    r4 := 70;
    Ellipse(x - r3, y + r2 - r4, x + r3, y + r2 + r4);
    Circle(250, 180, 50);
    
    moveto(x + 50, y);
    lineto(350, 250);
    lineto(450, 200);
    lineto(x + 50, y);
    redraw;
    sleep(150);
  until x = 1;
end.