ошибка в использовании функции

[Repac123456]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bible, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
x,A:real;
c:integer;
Function K(x:real;c:integer): real;
begin
K:=A/(x+(c/50))+ln(x);
end;
Function G(x:real;c:integer): real;
begin
G:=x/(x+c+x*x);
end;
Function F(j:integer): real;
begin F:=-(j-1)/(j);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
c: integer;
A,S,B,x: real;
begin
c:=5;
B:=Exloc(G;-c;c;1);//error here
A:=Ryad(F;1;0,001);
S:=IntF(K;A;B;0,001);
Edit1.text:=FloatToStr(S);
end;
end.

Ошибка

[Error] Unit1.pas(46): Incompatible types: 'Parameter lists differ'

Bible-подключённый модуль.
Помогите разобраться с ошибкой, зарание благодарю.

[Stranger333]

Я не могу понять. Вы где узяли такие функции Exloc, Ryad и IntF? Это из модуля какого то? если да то виложите его код!

[Repac123456]

ф-и из модуля, вот их описание:

Function Exloc(F:fun; A,B,E: tip; M:integer): tip;
 Var h: tip;
begin   
Repeat h:= (B-A)/3;
If M*(F(A+h)- F(B-h)) < 0 
then A:= A+h 
else B:= B-hUntil B - A < E;
Exloc:= (A+B)/2
end;

Function IntF(F:fun; A,B,E: tip): tip;
 Var c,h,x,s,w,R:tip; k,m:integer;
begin R:=1E38; 
c:= (F(A)+F(B))/2;
 m:= 1;  
 Repeat w:= R; 
h:= (B-A)/m; s:= 0; x:= A + 0.5*h;
For k:= 1 to m do begin s:= s+F(x); x:= x+h end;
c:= c+s; R:= (c+s)*h/3; m:= m+m
Until (Abs(w-R) < E) or (m > 10000000);
 IntF:=R

Function Ryad(F:func; p,E:tip):tip;
 Var i: integer; R:tip;
begin R:= p;   
For i:= 2 to 100 do begin 
p:= p*F(i); R:= R + p;
 If Abs(p)< E then
 Break end;
 Ryad:=R
end;

tip это double

[netrino]

Параметры, передаваемые в функцию, при вызове функции, должны перечисляться через запятую.

B:=Exloc(G,-c,c,1);//error here
A:=Ryad(F,1,0.001); //В вещественных числах, дробная часть отделяется точкой, а не запятой
S:=IntF(K,A,B,0.001);

[Repac123456]

ага, исправил, но теперь всё стало куда интереснее:

B:=Exloc(G,-c,c,1);  //error here
A:=Ryad(F,1,0.001);
S:=IntF(K,A,B,0.001)  //error here

ошибка та же самая.