Added function to find successors of the same sex in Pascal experiment.