Разбросать по экрану 1000 звездочек в случайном месте случайным цветом с небольшой задержкой - Free Pascal

Формулировка задачи:

Задача : "По экрану разбросайте 1000 звездочек в случайном месте случайным цветом с небольшой задержкой." Мой код :

                    Листинг программы
                
 
                        
                          
                    
Program WeLoveStaRS;
uses crt;
var n,x,y,i : integer;
Begin
 Randomize;
 n:=Random(16);
 x:=Random(80);
 y:=Random(25);
 For i:=1 to 1000 do 
   Begin
    Textcolor(n);
    GoToXy(x,y);
    Write('*');
    delay(100);
   End;
End.

Почему он рисует всего 1 звездочку по окончанию работы программы?

Решение задачи: «Разбросать по экрану 1000 звездочек в случайном месте случайным цветом с небольшой задержкой»

Листинг программы

Program WeLoveStaRS;
uses crt;
var n,x,y,i : integer;
Begin
 Randomize;
 For i:=1 to 1000 do 
   Begin
   n:=Random(16);
   x:=Random(80);
   y:=Random(25);
    Textcolor(n);
    GoToXy(x,y);
    Write('*');
    delay(100);
   End;
End.

Объяснение кода листинга программы

Программа называется WeLoveStaRS.
Используется модуль crt.
Вектор переменных n, x, y, i определен как целочисленный.
Функция Randomize используется для инициализации генератора случайных чисел.
Используется цикл For для выполнения 1000 итераций.
На каждой итерации:
- Переменная n получает случайное значение из диапазона [0..15].
- Переменные x и y получают случайные значения из диапазонов [0..79] и [0..24] соответственно.
- Функция Textcolor используется для установки цвета текста на значение переменной n.
- Функция GoToXy используется для перехода к координатам (x,y) на экране.
- Выводится символ '*'.
- Функция delay используется для задержки выполнения программы на 100 миллисекунд.
После завершения цикла программа завершается.