Пожалуйста, добавьте программу, которая заставит двигаться глаза - Pascal ABC

uses graphABC;
procedure lico;
begin
setpencolor(clwhite);
setbrushcolor(clbrown);
ellipse(60,40,100,90);
ellipse(160,40,200,90);
circle(130,110,70);
ellipse(90,110,170,160);
setbrushcolor(clwhite);
setpencolor(clblack);
circle(105,80,15);
circle(155,80,15);
setpencolor(clwhite);
setbrushcolor(clbrown);
floodfill(60,40,cllightblue);
end;
procedure glaza(x1,x2:integer);
begin
setbrushcolor(clblack);
ellipse(x1-5,75,x1+5,93);
ellipse(x2-5,75,x2+5,93);
end;
var i:byte;
begin
setwindowsize(500,400);
lico;
glaza(105,155);
lockdrawing;
for i:=1 to 5 do
 begin
  clearwindow;
  lico;
  glaza(100,150);
  sleep(500);
  redraw;
  lico;
  glaza(110,160);
  sleep(500);
  redraw
 end; 
clearwindow; 
unlockdrawing;
lico;
glaza(105,155);
 
end.