Звездное небо и Рокета

Program Zvezdy; 
Uses Crt,Graph; 
Var 
x,y,z,k,gd,gm,r,xm,Tx,Ty,Rx,Ry,Fill:integer; 
Begin 
Gd:=Detect; 
InitGraph(Gd,Gm,'C:\Pascal\Bgi'); 
For k:=1 to 400 do 
Begin 
x:=random(640); 
y:=random(480); 
z:=random(15); 
Putpixel(x,y,z); 
End; 
Begin 
SetColor(white); 
line(180,300,400,300); 
line(180,215,180,300); 
line(180,215,220,250); 
line(220,250,330,250); 
line(330,250,400,300); 
line(330,250,330,280); 
line(330,280,370,280); 
line(340,290,210,350); 
Line(210,350,220,290); 
Line(340,290,220,290); 
SetFillStyle(1,Blue); 
FloodFill(220,275,white); 
SetFillStyle(1,Blue); 
FloodFill(250,310,white); 
SetFillStyle(1,red); 
FloodFill(270,292,white); 
Readln; 
End; 
repeat until keypressed; 
End.