procedure TForm1.Button1Click(Sender: TObject);
Type Matrix=array[1..10,1..10] of real;
     Mass=array[1..10] of real;
var
m:Byte;
n,nk,k,i,j:integer;
    l,R,P,Xp,Yp:real;
	X,Y,C:Mass;
 ////////
x1c,y1c:real;
x2c,y2c,Rc,Xpc,Ypc,Pc:integer;
Xc,Yc:array[1..10] of integer;
s:string;
////////
BEGIN
//вводим данные из формы
P:=StrToFloat(Edit1.Text);
Xp:=StrToFloat(Edit2.Text);
Yp:=StrToFloat(Edit4.Text);
R:=StrToFloat(Edit5.Text);
n:=StringGrid1.ColCount-1;
{считывание элементов таблици в массив}
for i:=1 to StringGrid1.ColCount-1 do
       begin
            if StringGrid1.Cells[i,1]='' then X[i]:=0
             else
             X[i]:=StrToFloat(StringGrid1.Cells[i,1]);
            if StringGrid1.Cells[i,2]='' then Y[i]:=0
             else
             Y[i]:=StrToFloat(StringGrid1.Cells[i,2]);
      end;
{/считывание элементов таблици в массив}

//Зануляем переменные
nk:=0;
m:=0;
for i:=1 to n do
	begin
  l:=sqrt(abs(sqr(X[i]-Xp)+sqr(Y[i]-Yp)));  // вычисляем расстояние между центрами окружностей

  if(l<=R+P)then
	  begin
      k:=1;       // если расстояние меньше или равно Сумме радиусов окружностей то у них есть хотябы одно пересечение
      if (l<P+R)then k:=2;   // если расстояние меньше Суммы радиусов окружностей - одно пересечение
      if (l<=P-R)then k:=3;   //если расстояние меньше Разности радиуса Р и R то окружность целиком попадает в круг Р и имеет бесконечно много пересечений
    end;
  if(k>m)then     // сравниваем текущее число пересечений с максимальным
			begin
			m:=k;      // если текущее кол-во пересечений больше максимального то присваимаем ему значение максимального
			nk:=i;
      s:='Номера круга имеющего наибольшее число пересечений '+FloatToStr(nk);
			end;
    end;
    if(nk=0)then s:='нет таких круго';


AboutBox1.Label1.caption:=s;

///ГРАФИК////
y1c:=trunc((AboutBox1.Image1.Height)/2);
x1c:=trunc((AboutBox1.Image1.Width)/2);
y2c:=StrToInt(FloatToStr(y1c));       // Координаты центра графика
x2c:=StrToInt(FloatToStr(x1c));       // Координаты центра графика
AboutBox1.image1.Canvas.Rectangle(0,0,x2c+x2c,y2c+y2c);      // Очищаем график
// переводим величины из вещественного типа в целый
Rc:=StrToInt(FloatToStr(trunc(R)));
Xpc:=StrToInt(FloatToStr(trunc(Xp)));
Ypc:=StrToInt(FloatToStr(trunc(Yp)));
Pc:=StrToInt(FloatToStr(trunc(P)));

AboutBox1.image1.Canvas.Ellipse(x2c+(Xpc-Pc),y2c-(Ypc-Pc),x2c+(Xpc+Pc),y2c-(Ypc+Pc));   // Рисуем Круг Р
AboutBox1.image1.Canvas.TextOut(x2c+Xpc,y2c-Ypc,'P');
// Рисуем круги множества Т
for i:=1 to n do
  begin
   Xc[i]:=StrToInt(FloatToStr(trunc(X[i])));
   Yc[i]:=StrToInt(FloatToStr(trunc(Y[i])));
AboutBox1.image1.Canvas.Ellipse(x2c+(Xc[i]-Rc),y2c-(Yc[i]-Rc),x2c+(Xc[i]+Rc),y2c-(Yc[i]+Rc));
AboutBox1.image1.Canvas.TextOut(x2c+Xc[i],y2c-Yc[i],IntToStr(i));
  end;
//Рисуем оси
AboutBox1.image1.Canvas.Moveto(x2c,0);
AboutBox1.image1.Canvas.lineto(x2c,y2c+y2c);
AboutBox1.image1.Canvas.Moveto(0,y2c);
AboutBox1.image1.Canvas.lineto(x2c+x2c,y2c);

//стрелочки
AboutBox1.image1.Canvas.TextOut(x2c+10,10,'y');
AboutBox1.image1.Canvas.Moveto(x2c,5);
AboutBox1.image1.Canvas.lineto(x2c-5,20);
AboutBox1.image1.Canvas.Moveto(x2c,5);
AboutBox1.image1.Canvas.lineto(x2c+5,20);
AboutBox1.image1.Canvas.TextOut(x2c+x2c-10,y2c+10,'x');
AboutBox1.image1.Canvas.Moveto(x2c+x2c,y2c);
AboutBox1.image1.Canvas.lineto(x2c+x2c-20,y2c-5);
AboutBox1.image1.Canvas.Moveto(x2c+x2c,y2c);
AboutBox1.image1.Canvas.lineto(x2c+x2c-20,y2c+5);

AboutBox1.Show;








end;