помогите решить проблемку Паскаль

[Fly090]

почему при запуске программы "солнце" мигает, как это исправить?

program sunanim;
uses Graph, Crt;
var
driver,mode,i:integer;
path:string;
begin
   driver:=detect;
   path:='D:\Games\Programming\TP7\BGI';
   initgraph(driver,mode,path);
   i:=0;
   while i<=750 do
    begin
       setcolor(14); setbkcolor(3);
       setfillstyle(1,14); circle(i,100,50); floodfill(i,100,14);
       delay(5000);
       setfillstyle(1,3); setcolor(3); circle(i,100,50);
       i:=i+1
    end;
end.

[Stilet]

Так не подойдет?:

uses Graph, Crt;
const step=1;
var
driver,mode,i:integer;
path:string;
begin
   driver:=detect;
   path:='';
   initgraph(driver,mode,path);
   i:=0;
   setbkcolor(3);
   while i<=750 do
    begin
       setcolor(14);       setfillstyle(1,14);       pieslice(i,100,0,360,50);
       delay(10);
       setcolor(3);         setfillstyle(1,3);       pieslice(i,100,0,360,50);
       i:=i+step
    end;

end.

[Fly090]

по другому немного, но все же мигает..
а если прибавить delay, то меньше. Попробуйте кто нибуть коль не сложно запустите на своем, возможно проблема не в проге, а в самом компе или в Паскале..

[FPaul]

Может после второй закраски добавить delay?