Определить пару наиболее удаленных друг от друга окружностей

uses graph;
type okr=record
         x,y,r:longint;
         end;
var f:text;
    gd,gm,n,i,j,imx,jmx:integer;
    o:array[1..100] of okr;
    a:okr;
    d,mx:real;
    s,s1:string;
begin
assign(f,'input.txt');
reset(f);
n:=0;
while not eof(f) do
 begin
  read(f,a.x,a.y,a.r);
  n:=n+1;
  o[n]:=a;
 end;
close(f);
mx:=sqrt(sqr(o[1].x-o[2].x)+sqr(o[1].y-o[2].y))-o[1].r-o[2].r;
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  d:=sqrt(sqr(o[i].x-o[j].x)+sqr(o[i].y-o[j].y))-o[1].r-o[2].r;
  if d>mx then
   begin
    mx:=d;
    imx:=i;
    jmx:=j
   end;
 end;
initgraph(gd,gm,'');
for i:=1 to n do
 begin
  circle(o[i].x,o[i].y,o[i].r);
  str(i,s);
  outtextXY(o[i].x,o[i].y,s);
 end;
setcolor(12);
if mx<=0 then outtextXY(250,240,'Net udalennyh okruznostey')
else
 begin
  circle(o[imx].x,o[imx].y,o[imx].r);
  str(imx,s);
  outtextXY(o[imx].x,o[imx].y,s);
  circle(o[jmx].x,o[jmx].y,o[jmx].r);
  str(jmx,s1);
  outtextXY(o[jmx].x,o[jmx].y,s1);
  outtextXY(200,240,'Naibolee udaleny okruznosti '+s+' i '+s1)
 end;
readln
end.