Установить факт пересечения кругов

uses crt;
Type Circle = record
                x,y,r:real;
              end;
var c:array[1..10] of Circle;
    i,j,n:integer;
   procedure SetRandom(i:integer);
begin
 
 
end;
procedure GetCircle(i:integer);
begin
  writeln(i,'-й круг находится в точке (',c[i].x:5:5,':',c[i].y:5:5,') и имеет радиус ',c[i].r);
end;
function Accross(a:Circle; b:Circle) : boolean;
var d:real;
begin
   d:=sqrt(sqr(b.x - a.x) + sqr(b.y - a.y));
   if d <= a.r + b.r
       then result:= true
       else result:=false;
end;
begin
  readln(n);
  for i:=1 to n do
   begin
     SetRandom(i);
     GetCircle(i);
   end;
   writeln;
   for i:=1 to n-1 do
     begin
       for j:=i+1 to n do
         begin
           if Accross(c[i],c[j]) then
             writeln('круг ',i,' пересекается с кругом ',j);
         end;
     end;
end.

uses crt;
Type Circle = record
                x,y,r:real;
              end;
     massiv=array[1..10] of Circle;
var c:massiv;
    i,j,n,k:integer;
procedure SetRandom(var c:massiv;var n:integer);
begin
write('Количество окружностей до 10 n=');
read(n);
writeln('Введите параметры окружностей:');
for i:=1 to n do
 begin
  writeln('Окружность ',i);
  write('координата центра Х=');
  read(c[i].x);
  write('координата центра Y=');
  read(c[i].y);
  write('радиус=');
  read(c[i].r)
 end;
clrscr;
end;
procedure GetCircle;
begin
for i:=1 to n do
writeln(i,'-й круг находится в точке (',c[i].x:5:2,':',c[i].y:5:2,') и имеет радиус ',c[i].r:5:2);
end;
function Accross(a:Circle; b:Circle) : boolean;
var d:real;
begin
d:=sqrt(sqr(b.x - a.x) + sqr(b.y - a.y));
result:=(d<a.r+b.r)and(d>abs(a.r-b.r))//окружности могут быть 1 внутри 2
end;
begin
SetRandom(c,n);
GetCircle;
writeln;
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if Accross(c[i],c[j]) then
 begin
  k:=1;
  writeln('круг ',i,' пересекается с кругом ',j);
  end;
if k=0 then write('Нет пересекающихся кругов')
end.