Не определяется глобальная переменная внутри функции

#include "stdafx.h"
#include <iostream>
#include "math.h"
    const int N=5;
    int ans, point;
    double R;
        
    struct TPoint { //задание структуры
    double x, y, z;
    };
 
    struct TPoint PS[N]={{0,5,0},{0,2,3},{1,1,2},{4,2,4},{2,4,3}}; //задание массива структур
    double Dist(TPoint a, TPoint b); //функция вычисления длины между точками
    double schet(double Dist(TPoint a,TPoint b),double R); //функция нахождения максимального количества точек для каждой точки
 
int main() {
    
    printf("Enter R=\n");
    scanf("%lf",&R);
    ans=schet(Dist,R);
    if (ans==10) printf("Max 4islo to4ek - 0, to4ki nahodyatsya slishkom daleko\n");
    else    printf("%i %i %i\n", &PS[ans].x,&PS[ans].y,&PS[ans].z);
    system("pause");
}
    
    double Dist(TPoint a, TPoint b){ //функция нахождения расстояния между точками
        double lenght;
        lenght=sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)+(a.z-b.z)*(a.z-b.z));
        return lenght;
        }
 
    double schet(double Dist(TPoint a,TPoint b),double R) {
    int j,max, point ;
    double i,k0,k1,k2,k3,k4;
    double  d,d1,d2,d3,d4;
 
    i=0;
    max=0;
    point=10;
    k0=0;
    k1=0;
    k2=0;
    k3=0;
    k4=0;
    for (j=0;j<=N;j++){
    d=Dist(PS[0],PS[j]); //вызов функции нахождения раcстояния
    if ((d<R) && (d!=0)) { 
        k0++;               //k - количество точек попадающих в радиус  
    }
    if (k0>max) {
        max=k0;
        point=0;
        }   
    }
    for (j=0;j<=N;j++){
    d1=Dist(PS[1],PS[j]); //вызов функции нахождения раcстояния
    if ((d1<R) && (d!=0)) { 
        k1++;               //k - количество точек попадающих в радиус
        if (k1>max) {
            max=k1;
            point=1;
        }   
    }
    }
    for (j=0;j<=N;j++){
    d2=Dist(PS[2],PS[j]); //вызов функции нахождения расcтояния
    if ((d2<R) && (d!=0)) { 
        k2++;               //k - количество точек попадающих в радиус
        if (k2>max) {
            max=k2;
            point=2;
        }   
    }
    }
    for (j=0;j<=N;j++){
    d3=Dist(PS[3],PS[j]); //вызов функции нахождения расcтояния
    if ((d3<R) && (d!=0)) { 
        k3++;               //k - количество точек попадающих в радиус
        if (k3>max) {
            max=k3;
            point=3;
        }   
    }
    }
    for (j=0;j<=N;j++){
    d4=Dist(PS[4],PS[j]); //вызов функции нахождения раcстояния
    if ((d4<R) && (d!=0)) { 
        k4++;               //k - количество точек попадающих в радиус
        if (k4>max) {
            max=k4;
            point=4;
        }   
    }
    }
    return point;
    }

cout << "Enter R=\n";
cin >> R;

double schet(double Dist(TPoint a,TPoint b));

ans=schet(Dist);