графика,круги

uses graph,crt;
type Okr=record{тип окружность}
         x,y,r,c:longint;{поя - координаты центра, радиус, цвет}
         end;
function Rasst(a,b:Okr):real;{определение расстояния между центрами окружностей}
begin
Rasst:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
function NePeres(a,b:Okr):boolean;{пересекаются или нет}
begin
{если расстояние между центрами больше суммы радиусов, или ментше их разности, 
то не пересекаются}
if (Rasst(a,b)>a.r+b.r)or(Rasst(a,b)<abs(a.r-b.r))
then NePeres:=true else NePeres:=false;
end;
var t:array[1..1000] of Okr;{массив окружностей}
    p:Okr;{переменная - окружность}
    n,m,i,j:integer;
    f:boolean;
begin
clrscr;
randomize;
write('Kol okr n=');
readln(n);
j:=0;
initgraph(j,m,'');
m:=1;{первая окружность}
t[1].r:=random(100)+20;{радиус}
t[1].x:=random(getmaxX-2*t[1].r)+t[1].r;{координата по Х, чтобы не выходила за экран}
t[1].y:=random(getmaxY-2*t[1].r)+t[1].r;{то же по У}
t[1].c:=random(15)+1;{все цвета, кроме черного}
for i:=2 to n do{остальные}
 begin
  repeat
  f:=false;{считаем что не пересекаются}
  p.r:=random(100)+20;{задаем параметры ркружности}
  p.x:=random(getmaxX-2*p.r)+p.r;
  p.y:=random(getmaxY-2*p.r)+p.r;
  for j:=1 to m do{идем по масиву уже имеющихся}
  if not NePeres(t[j],p)then f:=true;{если пересекаются, генерируем новые значения}
  until f=false;{не перескаются, стоп машина}
  t[i].r:=p.r;{пишем эту окружность в наш массив}
  t[i].x:=p.x;
  t[i].y:=p.y;
  t[i].c:=random(15)+1;
  m:=m+1;{увеличиваем размер массива для проверки}
 end;
 
for i:=1 to n do
 begin
  setcolor(t[i].c);
  Circle(t[i].x,t[i].y,t[i].r);
 end;
readln
end.

sqr(a.x-b.x)+sqr(a.y-b.y)
p.r:=random(100)+20;

t[1].x:=random(getmaxX-2*t[1].r)+t[1].r;

type Okr=record{тип окружность}
         x,y,r,c:longint;{поя - координаты центра, радиус, цвет}
         end;