Рисование овалов

Program pr;
uses crt,graphABC;
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 k=');
readln(k);
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.

Program pr;
uses crt,graphABC;
var k,i,w,h,r:integer;
 
procedure DrawEllipse(x,y,r1,r2:integer);
var col:integer;
begin
{заполненный эллипс}
col:=RGB(random(255),random(255),random(255));
SetbrushColor(col);
Setbrushstyle(bsSolid);{стиль сплошная закраска указанным цветом}
Ellipse(x-r1,y-r2,x+r1,y+r2);
end;
 
begin
clrscr;
randomize;
write('Kol. ellipsov k=');
readln(k);
hidecursor;
r:=40;{максимальный радиус}
w:=windowwidth-2*r;{диапазон по оси Х}
h:=windowheight-2*r;{диапазон по оси У}
for i := 1 to k do
{координаты такие что овалы не уходят за экран}
DrawEllipse(random(w)+r,random(h)+r,random(r)+5,random(r)+5);
readkey
end.