Исправить ошибку в программе Конфетти - PascalABC.NET

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

Программа рисует конфетти из заданного количества элементов Что в программе неправильно?

program b_3;
uses graph,crt;
var driver,mode,a,x,y,t,c:integer;
begin
Write('Введите ко-во конфетти '); 
Readln(a);
clrscr;
 driver:=VGA; 
 initgraph (driver,mode,'');
setcolor(1);
For t:=1 to a do
Begin x:= random(639);
y:= random(200);
c:= random(15);
setcolor(c);
circle(x,y,10);
setfillstyle(1,c);
floodfill(x,y,c);
Delay(10000);
End;
readkey;
closegraph;
end.

Решение задачи: «Исправить ошибку в программе Конфетти»

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

uses crt,graph;
var driver,mode,a,x,y,t,c:integer;
begin
clrscr;
write('Количество конфетти=');
readln(a);
driver:=detect;
initgraph(driver,mode,'');
for t:=1 to a do
 begin
  x:=10+random(621);
  y:=10+random(421);
  c:=1+random(15);
  setcolor(c);
  setfillstyle(1,c);
  fillellipse(x,y,10,10);
  delay(100);
 end;
readkey
end.

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

Объявлены переменные: — driver, mode, a, x, y, t, c — целочисленные значения.
Задаются начальные значения переменным: — a — количество конфетти; — x, y — координаты на экране; — t — счётчик; — c — цвет конфетти.
Очищается экран.
Задаётся вопрос пользователю о количестве конфетти.
Считывается количество конфетти с помощью функции readln().
Инициализируется графический драйвер и режим работы с графикой с помощью функции initgraph().
Запускается цикл по всем конфетти от 1 до a.
Внутри цикла задаются случайные координаты x и y для конфетти.
Задаётся случайный цвет конфетти c с помощью функции random().
Устанавливается цвет конфетти с помощью функции setcolor().
Устанавливается стиль заполнения конфетти с помощью функции setfillstyle().
Выводится конфетти на экран с помощью функции fillellipse().
Делается задержка в 100 миллисекунд с помощью функции delay().
Завершается цикл.
Ожидается нажатие клавиши.
Конец программы.