Определить, в каком из кругов находится наибольшее число кругов из данного множества кругов

const n=20;
var
i,j,k,c:integer;
mx:array [1..n] of integer;
my:array [1..n] of integer;
mr:array [1..n] of integer;
mc:array [1..n] of integer;
begin
  writeln ('Введите кол-во кругов');
  readln (k);
  for i:=1 to k do
    begin
      mc[i]:=-1;
      writeln('Введите x',i,',y',i,' и R',i);
      readln (mx[i],my[i],mr[i]);
    end;
  for i:=1 to k do begin
    for j:=1 to k do  
      if (sqrt(sqr(mx[j]-mx[i])+sqr(my[j]-my[i]))+sqr(mr[i]))>=sqr(mr[j]) then begin
        mc[i]:=mc[i]+1;
        end; writeln (mc[i]); end;
    c:=1;
  for i:=1 to k do      
    if mc[c]<mc[i] then
      c:=i;
writeln ('В круге ',mx[c],' ',my[c],' ',mr[c],' содержится ',mc[c],' кругов');
end.

type krug=record
          x,y,r:real;
          end;
const nmax=20;
var k:array[1..nmax]of krug;
    n,i,j,q,max,imax:integer;
begin
repeat
writeln ('Введите кол-во кругов от 3 до ',nmax);
readln (n);
until n in [3..nmax];
for i:=1 to n do
 begin
  writeln('Введите координаты центра и радиус круга ',i);
  readln (k[i].x,k[i].y,k[i].r);
 end;
max:=0;
for i:=1 to n do
 begin
  q:=0;
  for j:=1 to n do
  //если номер не совпадает и расстояние между центрами не больше
  //разности радиуса искомого круга и проверяемого, то проверяемвй входит в искомый
  if(j<>i)and(sqrt(sqr(k[j].x-k[i].x)+sqr(k[j].y-k[i].y))<=k[i].r-k[j].r)
  then q:=q+1;
  if q>max then
   begin
    max:=q;
    imax:=i;
   end;
 end;
if max=0 then write('Нет кругов, полностью лежащих в другом круге')
else write('Наибольшее количество кругов, равное ',max,' содержится в круге номер ',imax);
end.