Люди!!! Срочно,умоляю,помогите,пожалуйста! Составить программу для рисования звездного неба(в паскале).

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.