Подпрограмма: вычислить количество кругов (заданных координатами центра и радиусом), которые содержат в себе заданную точку

program lab_4;
uses crt;
const To4HocTb=0.001;
var x,y,r,d,k,t:real ;
    i,N:integer;
procedure T4k(x,y,r:real);
   begin
     write('nepBa9 KoopguHata CeHTpa =  ');    readln(x);
     write('BTopa9 KoopguHata CeHTpa =  ');    readln(y);
     write('Paguyc Kpyra=    ');               readln(r);
     d:=sqrt(sqr(k) + sqr(t));
     if abs(d-r) <To4HocTb then writeln ('To4ka Ha rpaHuwe  okpy]l[HocTu!!!')
     else if d<r then writeln ('To4ka BHyTpu Kpyra')
     else if d>r then writeln ('To4ka CHapy]l[u Kpyra');
     if d<r then
     N:=N+1
    end;
begin
clrscr;
   write('nepBa9 KoopguHaTa To4ku k=  ');     readln(k);
   write('BTopa9 KoopguHaTa To4ku t=  ');     readln(t);
T4k(x,y,r);
T4k(x,y,r);
T4k(x,y,r);
writeln ('KoJl-Bo KpyroB c To4kou (k,t)=        ',N);
readln;
readkey;
end.