Составить программу для рисования звездного неба(в паскале).

uses graph;
var x,y,n,gd,gm,i,c: integer;
begin
write('звезд=');
readln(N);
gd:=detect;         
initgraph(gd,gm,'');
randomize; for i:=1  to n  do  
begin              
x:=random(640);    
y:=random(480);      
c:=random(16);      
setcolor(c);  
circle(x,y,1)      
end;
readln
end.