Изобразить солнце с мерцающими лучами

Uses Graph,crt;
 
Var grDriver : Integer;
      grMode : Integer;
     ErrCode : Integer;
 
     x,y,i:integer;
 
Begin
 grDriver:=Detect;
 InitGraph(grDriver, grMode, 'D:\');
 ErrCode:=GraphResult;
 x:=getmaxx div 2;
 y:=getmaxy div 2;
 
 If ErrCode = grOk Then
 while not keypressed do
  Begin
    setfillstyle(1,14);
    setcolor(14);
    fillellipse(x,y,40,40);
    for i:=1 to 300 do
    begin
      line(x,y,random(getmaxx),random(getmaxy));
   end;
   delay(10000);
   cleardevice;
  End
 Else WriteLn( 'GraphErrorMsg(ErrCode)');
 closegraph;
End.

program EvgeniiSp;
Uses GraphABC,Crt;
Var
 x,y,i:integer;
Begin
 ClrScr;
 x:=WindowWidth div 2;
 y:=WindowHeight div 2;
 while not keypressed do
  Begin
   setpencolor(clYellow);
   for i:=1 to 300 do
    line(x,y,random(WindowWidth),random(WindowHeight));
   delay(500);
   Clearwindow;
  End;
End.