Анимация гирлянды на елке

Program Elka;
uses GraphABC;
begin
for var i := 1 to 100 do
 begin
Pen.Color := RGB(2, 200, i);
Line(100 - i, i, 100 + i, i);
end;
for var i := 1 to 100 do
begin
Pen.Color := RGB(0, i, 0);
Line(100 - i, i + 100, 100 + i, i + 100);
end;
for var i := 1 to 100 do
begin
Pen.Color := RGB(0, i, 0);
Line(100 - i, i + 200, 100 + i, i + 200);
end;
Setpenwidth(1);
Setpencolor(clBrown);
Rectangle(75, 301, 125, 375);
FloodFill(77, 350, clBrown);
Circle(50, 80, 20);
Circle(153, 80, 20);
Circle(100, 50, 15);
Circle(100, 160, 20);
Circle(50, 180, 20);
Circle(153, 180, 20);
Circle(100, 255, 20);
Circle(153, 277, 20);
Circle(50, 277, 20);
FloodFill(50, 80, clLightGreen);
FloodFill(153, 80, clRed);
FloodFill(100, 50, clBlue);
FloodFill(100, 160, clBlue);
FloodFill(50, 180, clLightBlue);
FloodFill(153, 180, clYellow);
FloodFill(50, 277, clYellow);
FloodFill(100, 255, clRed);
FloodFill(153, 277, clRed);
Circle (350,355,80);
FloodFill(350,355,clLightBlue );
Circle (350,250,55);
FloodFill(350,250,clLightBlue );
Circle (350,170,45);
FloodFill(350,170,clLightBlue );
Circle (322,167,7);
FloodFill(322,167,clGray );
Circle (370,167,7);
FloodFill(370,167,clGray );
end.

program Elka;
 
uses
  GraphABC;
 
const
  colors: array[0.. 4] of Color =
  (clLightGreen, clRed, clBlue, clLightBlue, clYellow);
 
begin
  for var i := 1 to 100 do
  begin
    Pen.Color := RGB(2, 200, i);
    Line(100 - i, i, 100 + i, i);
  end;
  for var i := 1 to 100 do
  begin
    Pen.Color := RGB(0, i, 0);
    Line(100 - i, i + 100, 100 + i, i + 100);
  end;
  for var i := 1 to 100 do
  begin
    Pen.Color := RGB(0, i, 0);
    Line(100 - i, i + 200, 100 + i, i + 200);
  end;
  Setpenwidth(1);
  Setpencolor(clBrown);
  Rectangle(75, 301, 125, 375);
  FloodFill(77, 350, clBrown);
 
  Circle(350, 355, 80);
  FloodFill(350, 355, clLightBlue );
  Circle(350, 250, 55);
  FloodFill(350, 250, clLightBlue );
  Circle(350, 170, 45);
  FloodFill(350, 170, clLightBlue );
  Circle(322, 167, 7);
  FloodFill(322, 167, clGray );
  Circle(370, 167, 7);
  FloodFill(370, 167, clGray );
  
  LockDrawing;
  repeat
    
    Circle(50, 80, 20);
    Circle(153, 80, 20);
    Circle(100, 50, 15);
    Circle(100, 160, 20);
    Circle(50, 180, 20);
    Circle(153, 180, 20);
    Circle(100, 255, 20);
    Circle(153, 277, 20);
    Circle(50, 277, 20);
    
    FloodFill(50, 80,  colors[Random(5)]);
    FloodFill(153, 80, colors[Random(5)]);
    FloodFill(100, 50, colors[Random(5)]);
    FloodFill(100, 160, colors[Random(5)]);
    FloodFill(50, 180, colors[Random(5)]);
    FloodFill(153, 180, colors[Random(5)]);
    FloodFill(50, 277, colors[Random(5)]);
    FloodFill(100, 255, colors[Random(5)]);
    FloodFill(153, 277, colors[Random(5)]);
    Redraw;
    sleep(1);
  until false;
end.