Получить изображение человеческого глаза и продемонстрировать его моргание - Free Pascal

uses wincrt,graph;
var xc,yc:integer;
    c:char;
begin
   initgraph(xc,yc,'');
   xc:=getmaxX div 2;
   yc:=getmaxY div 2;
   outtextXY(xc-40,20,'Migaet Enter');
   outtextXY(xc-40,40,'Vyhod Esc');
   repeat
      if keypressed then
      begin
         c:=readkey;
         case c of
         #13:
         begin
            setcolor(0);
            setfillstyle(1,0);
            fillellipse(xc-40,yc-30,20,20);
            setcolor(0);
            setfillstyle(1,0);
            fillellipse(xc-40,yc-22,10,10);
            setcolor(15);
            arc(xc-40,yc-30,180,360,20);
            arc(xc-40,yc-30,180,360,20);
 
            delay(1000);
 
            setcolor(15);
            setfillstyle(1,15);
            fillellipse(xc-40,yc-30,20,20);
            setcolor(9);
            setfillstyle(1,9);
            fillellipse(xc-40,yc-22,10,10);
         end;
         #27:exit;
         end;
      end;
   until c=#27;
   readln;
end.