X := Random(201) - 100;

i := 1; found := false;
while (i <= n) and not found do begin
  if sqrt(sqr(x[i] - point_x) + sqr(y[i] - point_y)) < radius[i] then found := true;
  inc(i)
end;
{
  если found = true, точка (point_x, point_y) находится
  внутри хотя бы одной окружности, иначе - не попадает ни в одну
}

randomize;
point_x := random(12) - 5;
point_y := random(12) - 7

point_x:=random(round(maxx-minx+1))+minx;
point_y:=random(round(maxy-miny+1))+miny;

While (i <= n) and (not found) do begin

var amount: longint;
...
for amount := 1 to 200000 do begin
  randomize;
  point_x:=random(round(maxx-minx+1))+minx;
  point_y:=random(round(maxy-miny+1))+miny;

  i := 1; found := False;
  While (i <= n) and not found do begin
    If Sqrt(sqr(point_x-x[i])+sqr(point_y-y[i]))<=mas[i] then found:=true
    else inc(i);
    end;
  write(point_x:3:3, ', ', point_y:3:3);
  if found then writeln(' is inside circle #', i)
  else writeln(' is outside');
end;

  randomize;
  point_x:=(random(100*round(maxx-minx))+100*minx)/100;
  point_y:=(random(100*round(maxy-miny))+100*miny)/100;

{
  добавляешь эти описания:
}
const
  divider = 500;
  delta = 1/ divider;
var
  sum, none: longint;
  {
    ... и все остальные
  }

begin
{
  Здесь - все, что касается нахождения minx, miny, maxx, maxy,
  как и было раньше... А вот дальше:
}
  sum:=0; none := 0;
  tm_s:= MemL[$0040:$006c]; { контроль времени - начали отсчет }

  point_x := minx;
  while point_x <= maxx do begin

    point_y := miny;
    while point_y <= maxy do begin

      i := 1; found := False;
      While (i <= n) and not found do begin
        If Sqrt(sqr(point_x-x[i])+sqr(point_y-y[i]))<=mas[i] then found:=true
        else inc(i);
      end;
      if found then sum:=sum+1 else none := none+1;

      point_y := point_y + delta;
    end;

    point_x := point_x + delta;
  end;

  tm_f:= MemL[$0040:$006c]; { отсчет окончен }
  tm_f:=tm_f - tm_s; { замеряем время }

  writeln('time: ', tm_f);
  writeln('Внутри: ', sum, ' снаружи: ', none);
  S2:=S1*(sum/(sum+none));
  writeln('Площадь фигуры = ',S2:2:2);
end.

  sum:=0; none := 0;
  tm_s:= MemL[$0040:$006c]; { контроль времени }

  for i := 1 to n do
    mas[i] := sqr(mas[i]);

  point_x := minx;
  while point_x <= maxx do begin

    point_y := miny;
    while point_y <= maxy do begin

      i := 1; found := False;
      While (i <= n) and not found do begin
        If (sqr(point_x-x[i])+sqr(point_y-y[i])) <= mas[i] then found:=true
        else inc(i);
      end;
      if found then inc(sum) else inc(none);

      point_y := point_y + delta;
    end;

    point_x := point_x + delta;
  end;

  tm_f:= MemL[$0040:$006c];
  tm_f:=tm_f - tm_s;