Модифицировать программу "мерцание звезд"

for k:= 1 to N do  begin  X[k]:=random(Gx); Y[k]:=random(Gy)  end;
Repeat
     for k:= 1 to N do  begin  i:= random(16);
                               PutPixel(X[k], Y[k], i);
     if i= 0 then  begin   X[k]:= random(Gx); { новые координаты звезд }
                           Y[k]:= random(Gy)  end  end
Until KeyPressed;

uses crt,graphABC;
const n=1000;
var x,y: array [1..N] of integer;
    i,k,Gx,Gy: integer;
begin
clearwindow(clblack);
hidecursor;
Gx:=600;
Gy:=400;
for k:= 1 to N do
    begin
    X[k]:=random(Gx);
    Y[k]:=random(Gy)
    end;
Repeat
          begin
          i:= random(16);
          PutPixel(X[k], Y[k], i);
          sleep(100);
          if i=0 then
             begin
             setbrushcolor(clred);
             circle(x[k],y[k],2);
             sleep(1000);
             setbrushcolor(clblack);
             circle(x[k],y[k],2);
             X[k]:= random(Gx); { íîâûå êîîðäèíàòû çâåçä }
             Y[k]:= random(Gy)
          end
          end
Until KeyPressed;
end.