Найти непересекающиеся окружности Опции

[Carrera]

Я вообще не понимаю в програмировании.Никогда не было информатики а тут надо одну задачу решить и зачет.Рещите пожалуйста кто умеет .Нужно в турбо паскале.Буду оч благодарна(шоколадку обеспечу))


Окружность на плоскости задана координатами X,Y,R-радиус(все значения формируются случайным образом).Из 20-ти окружностей показать те,которые не пересекают другие.

[Lapp]

Примерно вот так:

const
  n= 20;

var
  c: array[1..n] of record
    x,y,r: double
  end;
  i,j: integer;

begin
  randomize;
  for i:=1 to n do with c[i] do begin
    x:= random*100-50;
    y:= random*100-50;
    r:= random*12
  end;
  for i:=1 to n do with c[i] do begin
    write(i:3,':    x=',x:7:3,'  y=',y:7:3,'  r=',r:6:3);
    j:= 1;
    while (j<=n) and ((i=j) or (Sqrt(Sqr(c[j].x-x)+Sqr(c[j].y-y))>c[j].r+r)) do inc(j);
    if j>n then writeln('  - не пересекается с другими') else writeln
  end;
  readln
end.