Анимация "Подмигивающий глаз" - Pascal ABC

// рисуем
program Grafika;
uses
GraphABC;
begin
begin
LockDrawing;
begin
//рот
SetBrushColor(clOlive) ;//кисть
//SetPenColor( clBlue ) ;//перо
Circle(250,200, 200);//низ рта
SetBrushColor(clwhite) ;//кисть
SetPenColor( clwhite ) ;//перо
Circle(250,0, 360);//закраска фоном- верх рта
 
SetPenColor( clBlue ) ;//нос
Line(250,150,220,300);
Line(220,300,270,300);
Line(270,300,250,150);
FloodFill(250,250,clOlive);//закраска из точки
 
SetBrushColor(clOlive) ;
//SetPenColor( clBlue ) ;
Ellipse(300,70, 450,150);//левый глаз
end;
 
begin
LockDrawing;
for var i:=1 to 12 do //sleep(100);//задержка
begin
 
SetBrushColor(clOlive) ;
SetPenColor( clwhite );
Ellipse(50,70+(i*5), 200,150);//правый глаз закрыть
 
SetBrushColor(clwhite) ;
Rectangle(45,65, 220,155);//закрасить фоном
end;
end;
begin
LockDrawing;
for i:=12 downto 1 do sleep(10);//задержка
 
begin
LockDrawing;
SetBrushColor(clOlive) ;
Ellipse(50,70+(i*5), 200,150);//правый глаз открыть
end;
end;
 
end.