ЗАДАЧА С ГРАФИКОЙ

[xXxFEHUKCxXx]

Модифицировать программу "мерцание звезд": Если точка гаснет, то звезда "взрывается" - рисуется красная окружность радиусом два пиксела с коротким звуковым импульсом и гашением этой окружности после "взрыва".

{------------------------------------------------------------------
Фрагмент N 2 программы "мерцание звезд"
( рисование массива пикселов, изменяющих цвет ).

В программе "мерцание звезд" точки неподвижны, их координаты определены в виде массивов X[1. . N], Y[1. . N]. Точки последовательно высвечиваются различными цветами. Если точка гаснет (i= 0), то она случайным образом изменяет свои координаты.
------------------------------------------------------------------}
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;

[Serge_Bliznykov]

во-первых, не забывайте оформлять код тегами.

а во-вторых, где вопрос то?! Что не получается?!

[xXxFEHUKCxXx]

не получается переделать программу из АВС в Паскаль

program mercanue;
uses crt,graphabc;
const n=1000;
var x,y: array [1..N] of integer;
    i,k,Gx,Gy: integer;
begin
SetWindowSize(600,400);
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(10);
          if i=0 then
             begin
             setbrushcolor(clgreen);
             circle(x[k],y[k],2);
             sleep(1000);
             setbrushcolor(clred);
             circle(x[k],y[k],4);
              sleep(100);
              sound(800);
             setbrushcolor(clblack);
             circle(x[k],y[k],5);
             X[k]:= random(Gx); { новые кординаты звезд}
             Y[k]:= random(Gy)
          end
          end
Until KeyPressed;
end.

[xXxFEHUKCxXx]

помогите плз