Графика, Опр-ть кол-во непересекающихся окр-ей Опции

[FENIX]

Одно из заданий лабы:
На экране построить N произвольных окружностей (можно использовать функцию Random), допускается их пересечение.

Окружности, не пересекающиеся ни с какой другой окружностью, выделить другим цветом или штриховкой. Определить их количество.

Не могу найти подходящий алгоритм для выполнения выделенной части.

Вот процедура рисования :low:

Код

Procedure graphic;
var
   grDriver, grMode, ErrCode,
   x, y, n : integer;

Begin
  ClrScr;
  write('BBEDUTE N= ');
  readln(n);
  grDriver:=Detect;
  InitGraph(grDriver, grMode, 'A:\');
  ErrCode:=GraphResult;
  If ErrCode = grOk then
  begin
     x := GetMaxX div 2;
     y := GetMaxY div 2;

     Repeat

        {SetColor(succ(Random(white)));}
        SetColor(White);
        SetLineStyle(0,0,2*Random(2)+1);
        x := Random(GetMaxX);
        y := Random(GetMaxY);
        Circle(x, y, Random(GetMaxY div 5));
        Dec(N);

     Until N=0;

  If ReadKey=#0 then x := ord(ReadKey);
  ReadLn;
  CloseGraph;

  end

else WriteLn('System failure: Matrix Reloaded :D', GraphErrorMsg(ErrCode));

[APAL]

Пример:

Код

Const N = 5;
Type crcl = Record
         x,y,r : Integer;
       End;
Var m : Array [1..N] of crcl;

Begin
.....
 For i:=1 to N do
 Begin
   m[i].x:= Round(Random(640));
   m[i].y:= Round(Random(480));
   m[i].r:= Round(Random(400));
 End;
.....
End.