Доделать программу. Графика / Pascal ABC

[Nickolay0512]

Здравствуйте. Есть программа, которая делает анимацию соленной системы. Вот она:

uses graphABC;
var f:boolean;
procedure KeyDown(Key: integer);
begin
f:=false;
end;
 
var x0,y0,u,i,x,y,RZ, RV, RM: integer;
xz: array [1..100] of integer;
yz: array [1..100] of integer;
 
begin
f:=true;
lockdrawing;
setwindowsize(600,600);
x0:=300; y0:=300;
RZ:=250; RV:=180; RM:=100;
for i:=1 to 100 do
begin
xz[i]:=random(600);
yz[i]:=random(600);
setbrushcolor(clwhite);
end;
repeat
u:=1;
while(u<=360)and f do
begin
clearwindow (clblack);
SetBrushStyle(bsClear);
 
textout(50,20,'Auoia e?aay eeaaeoa');
setbrushcolor(clwhite);
setpencolor(clwhite);
SetBrushStyle(bsSolid);
setpenwidth(1);
i:=1;
while(i<=100)and f do
begin
circle(xz[i],yz[i],2);
i:=i+1;
end;
SetBrushStyle(bsClear);
circle(x0,y0,RZ);
circle(x0,y0,RV);
circle(x0,y0,RM);
SetBrushStyle(bsSolid);
setpenwidth(10);
setpencolor(clyellow);
circle(x0,y0,50);
TextOut(x0-50,y0+50, 'SUN');
x:=round(x0+RV*cos(pi*(u+100)/180));
y:=round(y0+RV*sin(pi*(u+100)/180));
setpencolor(clWhite);
circle(x,y,16);
TextOut(x-30,y+30, 'Venera');
x:=round(x0+RZ*cos(pi*(u+40)/180));
y:=round(y0+RZ*sin(pi*(u+30)/180));
setpencolor(clBlue);
circle(x,y,25);
TextOut(x-30,y+30, 'Earth');
x:=round(x0+RM*cos(pi*u/180));
y:=round(y0+RM*sin(pi*u/180));
setpencolor(clRed);
circle(x,y,30);
TextOut(x-30,y+30, 'Mars');
sleep(10);
redraw;
 
u:=u+1;
end;
until not f;
end.

Помогите сделать мерцание звезд и еще нужно сделать комету, летящую в воздухе
Заранее спасибо.