是先调用中间的函数，然后再调用最下面的函数，里面初始值M=100，NF=2，D=2,fun=200，
就是算两个函数的函数值，这两个函数每个函数有两个变量，分别是X【0】，x【1】，通过chfun函数，主要不懂的是chfun(&pop[D * i], f);这个表达式在delphi里怎么写，能用动态数组实现么，求大神指导

[local]1[/local]

void evaluation(double *pop, double *fitness, unsigned int M, unsigned int D, unsigned int fun, unsigned int NF) {
  unsigned int i, j, f;
        
  for(i = 0; i < M; i++)
    for(j = 0, f = fun; j < NF; j++, f++)
      fitness[(NF * i) + j] = chfun(&pop[D * i], f);
}

具体是怎么写的呢，能大致写一部分代码么，我现在完全没头绪对这个