Построить из данной точки закрашенную окружность с радиусом, равным расстоянию до ближайшей точки

procedure TForm1.Button1Click(Sender: TObject);
var a:array of TPoint;
    n,i,xt,yt,r:integer;
begin
randomize;
n:=strtoint(Edit1.Text);
setlength(a,n);
for i:=0 to n-1 do
 begin
  a[i].X:=2+random(Image1.Width-4);
  a[i].Y:=2+random(Image1.Height-4);
 end;
xt:=0;
yt:=0;
for i:=0 to n-1 do
 begin
  xt:=xt+a[i].X;
  yt:=yt+a[i].Y;
 end;
xt:=round(xt/n);
yt:=round(yt/n);
r:=round(sqrt(sqr(xt-a[0].X)+sqr(yt-a[0].Y)));
for i:=0 to n-1 do
if sqr(xt-a[i].X)+sqr(yt-a[i].Y)<r*r then
r:=round(sqrt(sqr(xt-a[i].X)+sqr(yt-a[i].Y)));
with Image1.Canvas do
 begin
  for i:=0 to n-1 do
   begin
    brush.Color:=clBlue;
    ellipse(a[i].X-2,a[i].Y-2,a[i].X+2,a[i].Y+2);
    pen.Color:=clGreen;
    moveto(xt,yt);
    lineto(a[i].X,a[i].Y);
   end;
  brush.Color:=clYellow;
  ellipse(xt-r,yt-r,xt+r,yt+r);
  brush.Color:=clRed;
  ellipse(xt-3,yt-3,xt+3,yt+3);
  font.Size:=12;
  brush.Style:=bsClear;
  textout(Image1.Width div 2-30,Image1.Height-40,'Радиус='+inttostr(r));
 end;
end;