написать программку, которая нарисует звездное небо из 500 звезд (разноцветными точками)!

uses crt, graph;
var
x, y, z, k, gd, gm: integer;

begin
gd := detect;
initgraph (Gd, Gm, );
randomize;
for k := 1 to 500 do
begin
x := random (500) - 20;
y := random (480) - 50;
z := random (15) - 100;
putpixel (x, y, z);
end;
repeat until keypressed;
end.