Найти две такие точки, чтобы две окружности с центрами в точках удовлетворяли условию - PascalABC.NET

(* Дано множество точек на плоскости. Найти две такие точки, 
чтобы две окружности заданного радиуса, с центрами в этих точках были такими,
 что количество точек внутри окружностей было одинаковым.*)
program z4;
uses  graphABC;
const
   n = 5;//максимальное число точек
   r = 100;//вы рисуете окружности радиусрм 100, а не 200
   w = 700;//размеры графического окна
type
   tochki = array[1..2,1..n] of integer;
//точка внутри окружности   
function inside(x,y,tx,ty:integer):boolean;
begin
result:=sqr(x-tx)+sqr(y-ty)<r*r
end;
//количество точек в окружности
function count(tx,ty:integer;a:tochki;n:integer):integer;
var i:integer;
begin
result:=-1;//вычитаем точку в центре
for i:=1 to n do
if inside(a[1,i],a[2,i],tx,ty)then inc(result)
end;     
 
var k: tochki;
    i, j: integer;
    m:set of byte;//номера точек, около которых есть нужные окружности
begin
setwindowsize(400,400);
centerwindow;
writeln('Введите ', n, ' координат Х от ',r,' до ',w-r);
for i := 1 to n do 
readln(k[1, i]);
writeln('Введите ', n, ' координат Y от ',r,' до ',w-r);
for i := 1 to n do 
readln(k[2, i]);
writeln('press enter');
writeln('Даны координаты:');
for i := 1 to n do
writeln(i, '(', k[1, i], ';', k[2, i], ')'); 
m:=[];
for i:=1 to n-1 do
for j:=i+1 to n do
if (count(k[1,i],k[2,i],k,n)>0)and(count(k[1,i],k[2,i],k,n)=count(k[1,j],k[2,j],k,n)) then 
 begin
  writeln('точки ',i,' ',j,' по ',count(k[1,i],k[2,i],k,n),' тч.');
  m:=m+[i]+[j];
 end;
if m=[] then writeln('Нет окружностей сравным количеством точек внутри');
writeln('press enter');
readln;
ClearWindow;
setwindowsize(w,w);
centerwindow;
setbrushstyle(bsClear);
for i := 1 to n  do
 begin
  SetPenColor(clBlue);
  Circle(k[1, i], k[2, i], 3);
  textout(k[1, i]+5, k[2, i], inttostr(i));
  if i in m then SetPenColor(clRed)
  else SetPenColor(clBlack);
  Circle(k[1, i], k[2, i], r);
 end;
end.