ООП. Описать тип объектов – круг

uses graph,crt;
type krug=object
          x,y,r,c:integer;
          procedure Draw;{порождение}
          procedure NewColor(c1:integer);{изменение цвета}
          procedure NewRadius(r1:integer);{изменение размеров}
          end;
     zkr_krg=object(krug)
             {наследуются от объекта krug
              x,y,r,c
              procedure Init
              procedure NewColor
              procedure NewRadius}
             procedure Draw;{новая}
            end;
procedure krug.draw;
begin
setcolor(c);
circle(x,y,r);
end;
procedure krug.NewColor(c1:integer);
begin
c:=c1;
end;
procedure krug.NewRadius(r1:integer);
begin
r:=r1;
end;
procedure zkr_krg.draw;
begin
setcolor(c);
circle(x,y,r);
setfillstyle(1,c);
floodfill(x,y,c);
end;
var xc,yc,i,r1,r2,r3,r:integer;
    k:array[1..50] of krug;
    zk:zkr_krg;
    kf:real;
begin
randomize;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r1:=10;
r2:=20;
r3:=50;
r:=(r2+r3)div 2;
for i:=1 to 50 do
 begin
  k[i].NewRadius(r1);
  k[i].x:=random(2*xc-2*k[i].r)+k[i].r;
  k[i].y:=random(2*yc-2*k[i].r)+k[i].r;
 end;
zk.x:=xc;
zk.y:=yc;
zk.NewColor(14);
kf:=1.1;
repeat
cleardevice;
for i:=1 to 50 do
 begin
  k[i].NewColor(random(15)+1);
  k[i].draw;
 end;
r:=round(r*kf);
zk.NewRadius(r);
if r>=r3 then kf:=0.9;
if r<=r2 then kf:=1.1;
zk.draw;
delay(300);
until keypressed;
end.