паскаль. графика

[deu4er]

подскажите пожалуйста как сделать чтобы снежинка достигнув нижнего края экрана приобрела форму крестика
сам снег я написал а вот как выполнить это задание чет не понимаю
uses crt, graph;
var
X, Y:array [1..400] of integer;
i, Gx, Gy, Gy1, Gd, Gm: integer;
z:byte;
BEGIN
Gd:=Detect;
InitGraph(Gd, Gm, 'GRAPH.TPU');
randomize;
Gx:=GetMaxX;
Gy:=GetMaxY;
for i:=1 to 200 do
begin
X[i]:= random(Gx);
Y[i]:= random(Gy div 1);
PutPixel(X[i],Y[i],15)
end;
repeat
inc (z);
for i:=1 to 200 do
begin
if (Y[i] < Gy) and (GetPixel(X[i],Y[i]+1)= 0)
then
begin
PutPixel(X[i], Y[i],0);
Y[i]:= Y[i]+1;
PutPixel(X[i], Y[i],15)
end
else
begin

Y[i]:= random(Gy div 40);
X[i]:= random(Gx);
PutPixel(X[i], Y[i], 15)
end;

end;
until keypressed;
END.

[OCTAGRAM]

Сообщение от deu4er

подскажите пожалуйста как сделать чтобы снежинка достигнув нижнего края экрана приобрела форму крестика

Надо же, как красиво...

uses crt, graph, svga;
var
   X, Y:array [1..400] of integer;
   i, Gx, Gy, Gy1, Gd, Gm: integer;
   z:byte;
BEGIN
     Gd:=Detect;
     InitGraph(Gd, Gm, 'X:\BP');
     randomize;
     Gx:=GetMaxX;
     Gy:=GetMaxY;
     SetColor(15);
    for i:=1 to 200 do
		begin
		     X[i]:= random(Gx);
		     Y[i]:= random(Gy div 1);
		     PutPixel(X[i],Y[i],15)
		end;
	        repeat
                inc (z);
		for i:=1 to 200 do
			begin
			     if (Y[i] < Gy) and (GetPixel(X[i],Y[i]+1)= 0)
				then
					begin
					     PutPixel(X[i], Y[i],0);
					     Y[i]:= Y[i]+1;
					     PutPixel(X[i], Y[i],15)
					end
				else
					begin
               if Y[i] < 20 then
               begin
                 PutPixel(X[i], Y[i],0);
               end else
               begin
                  Line(X[i] - 3, Y[i] - 2, X[i] + 3, Y[i] + 2);
                  Line(X[i] + 3, Y[i] - 2, X[i] - 3, Y[i] + 2);
                  Line(X[i], Y[i] - 3, X[i], Y[i] + 3);
               end;

					     Y[i]:= {random(Gy div 40)}0;
					     X[i]:= random(Gx);
               PutPixel(X[i], Y[i], 15);
          end;

      end;
	        until keypressed;
    CloseGraph;
END.

[deu4er]

Спасибо (=