Составить программу, которая имитирует блуждающие звезды

uses graph,crt;
var x,y,i:integer;
begin
initgraph(x,y,'');
randomize;
repeat
for i:=1 to 100 do
 begin
  x:=random(getmaxX);
  y:=random(getmaxY);
  putpixel(x,y,14);
 end;
delay(200);
cleardevice;
until keypressed
end.

program star;
 
uses
  Crt,Graph;
 
var
  Gd, Gm : SmallInt;  // Переменные для установки графического режима.
  ColorLight: Word; // Переменные для хранения значения кодов цвета.
  x,y: integer;    // Переменные для хранения значений координат.
  stars: array[1..100,1..3] of integer; // Переменная для хранения массива с координатами звезд на экране.
  i,k,j,d: integer;  // Промежуточные переменные для организации циклов.
  n: integer;   //  Переменная для хранения значения количества звезд на экране.
begin
n:= 50;  //  Количество звезд.
ColorLight:= 14;  // Цвет зажегшейся звезды.
 Gd := Detect;
 InitGraph(Gd, Gm, '');   // Установка графического режима.
 if GraphResult <> grOk then
   Halt(1);
 Randomize;
 for i:=1 to n do // Массив заполняется случайными координатами, а экран - звездами.
 begin
  stars[i,1]:= Random(getmaxX);   // Случайный выбор чисел для координаты звезды.
  stars[i,2]:= Random(getmaxY);
  stars[i,3]:= 1;
  Setfillstyle(1, ColorLight);   //  Первоначальная отрисовка звезд на экране.
  SetColor(ColorLight);
  fillEllipse(stars[i,1],stars[i,2],2,2);
 end;
 repeat
  for i:=1 to n do    // Отрисовка мерцающих звезд.
     begin
      if random(50) > 7 then // Рандомный выбор звезд для мерцания.
        begin
         Setfillstyle(1, ColorLight);  //  Отрисовка звезд на экране.
         SetColor(ColorLight);
         fillEllipse(stars[i,1],stars[i,2],2,2);
        end;
     end;
  K:= random(100);   // Случайный выбор чисел для длины трека падения метеора.
  x:= Random(getmaxX); // Случайный выбор чисел для координаты начала падения метеора.
  y:= Random(getmaxY);
   for i:=1 to k do  // Отрисовка падения метеоров
     begin
       putpixel(x+i,y+i,ColorLight);
       delay(1);
     end;
  if random(100)= 0 then  // Отрисовка взрыва сверхновой.
    begin
     i:= random(n+1);
    for j:= 2 to 20 do
      begin
       Setfillstyle(1, 15);
       SetColor(15);
       fillEllipse(stars[i,1],stars[i,2],j,j);
       for d:= 1 to 4 do
         line(stars[i,1],stars[i,2],random(getmaxX),Random(getmaxY));
 
      end;
    delay(100);
    end;
  delay(10);
 //cleardevice;
 ClearViewPort;  // Очищение экрана.
 until keypressed;;
 ReadLn;
CloseGraph;
end.

uses graph,crt;
var x,y,i,j,k,n,dx,dy:integer;
    z,z1:array[1..2,1..1000]of integer;
begin
initgraph(x,y,'');
randomize;
{создадим массив из 100 звезд}
for i:=1 to 100 do
 begin
  z[1,i]:=random(getmaxX);
  z[2,i]:=random(getmaxY);
  setfillstyle(1,14);
  fillellipse(z[1,i],z[2,i],1,1);
 end;
{будем делать падающие звезды}
k:=0;
repeat
delay(100+random(200));{задержка}
inc(k);{увеличим счетчик}
if k=maxint then k:=1;
if k mod 5=0 then{через каждые 5 падает звезда}
 begin
  i:=1+random(100);{выбираем ее случайно}
  x:=z[1,i];
  y:=z[2,i];
  dx:=-3+random(7);{смещение по х и по y}
  dy:=1;
  n:=1;{пишем ее в массив}
  z1[1,1]:=x;
  z1[2,1]:=y;
  while (y<getmaxY)and(x>0)and(x<getmaxX) do{пока внутри экрана}
   begin
    x:=x+dx;{вычисляем координаты точки и рисуем ее}
    y:=y+dy;
    putpixel(x,y,14);
    inc(n);{увеличиваем размер массива и пишем в него координаты точки}
    z1[1,n]:=x;
    z1[2,n]:=y;
    delay(1);{маленькая задержка}
   end;
  setcolor(0);
  for j:=1 to n do{стираем все точки массива следа}
  putpixel(z1[1,j],z1[2,j],0);
 end;
until keypressed{нажатие любой клавиши - конец}
end.