Помогите найти ошибку в коде Pascal (оиска несобственного интеграла по методу Эрмита с помощью таблицы Эрмита)

[Guzik]

Есть программа поиска несобственного интеграла по методу Эрмита с помощью таблицы Эрмита,выдаёт ошибку о том что ожидалось Begin а не конец операции,не пойму что делать...

Type vec=Array [1..5] of real;
var S:real; X,C:vec;
Function F(X:real):real;{подынтегральная функция}
Begin F:=cos(x) end;
Procedure HR(K:integer); var X,C:vec; Function F:real; var S:real;
var I:integer; {метод Эрмита}
Begin S:=0.0;
For I:=1 to K do S:=S+C[I]*F(X[I]);
end;
Begin
X[1]:=0.95872; X[2]:=2.020183; X[3]:=0.0;
C[1]:=0.393619; C[2]:=0.0199532; C[3]:=0.945309;
X[4]:=-X[1]; X[5]:=-X[2]; C[4]:=C[1]; C[5]:=C[2];
HR(5,X,C,F,S); Writeln('S=',S);
end;

[newerow1989]

я увидел 2 ошибки:

Type vec=Array [1..5] of real;
var S:real; X,C:vec;

Function F(X:real):real;{подынтегральная функция}
Begin
   F:=cos(x)
end;

Procedure HR(K:integer);
var X,C:vec;
  
   Function F:real; 
   var S:real;
   var I:integer; {метод Эрмита}
   Begin 
      S:=0.0;
      For I:=1 to K do S:=S+C[I]*F(X[I]);//функция F не имеет никаких параметров (см. примечание)
   end;
 
Begin
    X[1]:=0.95872; X[2]:=2.020183; X[3]:=0.0;
    C[1]:=0.393619; C[2]:=0.0199532; C[3]:=0.945309;
    X[4]:=-X[1]; X[5]:=-X[2]; C[4]:=C[1]; C[5]:=C[2];
    HR(5,X,C,F,S);//кол-во параметров превышает
    Writeln('S=',S);
end;

Примечание: функции

Function F(X:real):real;{подынтегральная функция}
Function F:real;//в процедуре HR(K:integer);

следует друг от друга отличать!