Как сделать, чтоб глаза котика подмигивали? паскаль!uses

Как сделать, чтоб глаза котика подмигивали? паскаль!
uses graphABC;
begin
setwindowsize(600,700);
setbrushcolor(clGray);
Line(120,240,150,40);
Line(150,40,280,150);
Line(280,150,120,240);
Line(320,150,480,240);
Line(480,240,450,40);
Line(450,40,320,150);
Floodfill(200,100,clSilver);
Floodfill(400,100,clSilver);
Setbrushcolor(clGray);
Floodfill(300,500,clGray);
Setbrushcolor(clGray);
Ellipse(100,430,500,130);
Line(120,350,0,700);
Line(0,700,600,700);
Line(600,700,470,350);
Line(120,350,300,550);
Line(300,550,470,350);
Floodfill(120,370,clLime);
Floodfill(90,360,clskyblue);
Setbrushcolor(clWhite);
Ellipse(300,240,200,330);
Ellipse(300,240,400,330);
setbrushcolor(clBlack);
Ellipse(260,270,240,300);
Ellipse(360,270,340,300);
Setbrushcolor(clblack);
Ellipse(270,330,330,370);
Line(50,350,200,350);
Line(30,340,190,340);
Line(10,330,180,330);
Line(410,330,570,330);
Line(400,340,560,340);
Line(390,350,550,350);
end.