Составить программу «Конфетти» из N овалов разного диаметра, разного цвета и появляющихся в произвольных местах эк-рана. Рисование одного овала оформить в виде процедуры, где координаты центра, радиус, цвет и стиль заполнения — входные параметры — Pascal(Паскаль)

Program pr;
uses crt,graph;
var driver, mode,i,n,w,h,r:integer;
 
procedure DrawEllipse(x,y,r1,r2,col:integer);
begin
Setfillstyle(1,col);{стиль 1=сплошная закраска указанным цветом}
Fillellipse(x,y,r1,r2);{заполненный эллипс}
end;
 
begin
clrscr;
randomize;
write('Kol. ellipsov n=');
readln(n);
driver:=detect;
initgraph(driver, mode, '');
r:=40;{максимальный радиус}
w:=getmaxX-2*r;{диапазон по оси Х}
h:=getmaxY-2*r;{диапазон по оси У}
for i := 1 to n do
{координаты такие что овалы не уходят за экран, если нужно чтоб уходили
w:=getmaxX  h:=getmaxY  и убрать +r}
DrawEllipse(random(w)+r,random(h)+r,random(r)+5,random(r)+5,random(15)+1);
readkey
end.