过程或函数引用无效-Pascal

有人能告诉我为什么我的代码抛出：

错误：过程或函数引用无效-Pascal

编程ITV_19_1；
类型FUNC=函数（x:REAL）：REAL；
变量a、b、k1、k2：真实值；
函数f（x：实）：实；
开始
f:=SQR（COS（x））-2/35*COS（x）-1/35；
结束；
函数g（x:REAL）：REAL；
开始
g:=SQR（COS（x））-2/5*COS（x）-1/25；
结束；
函数PYB（f:FUNC；a，b，C:REAL）：REAL；
开始
而ABS（F（a）-F（b））>0.00001
开始
c:=（a+b）/2；
如果（f（a）*f（c））<0，则
b:=c
其他的
a:=c；
结束；
PYB:=（a+b）/2；
结束；
 
开始
读（a，b）；
k1:=PYB（f，a，b）；
k2:=PYB（f，a，b）；
书面形式（'f-funksiya'，k1）；
书面形式（“g-funksiya”，k2）；
结束。
函数
PYB
声明为：

FUNCTION PYB(f:FUNC; a, b, C:REAL):REAL;

调用此过程需要三个
REAL
参数，而您只传递两个：

k1:=PYB(f, a, b);

k1:=PYB(f, a, b);