ошибки в задании ф-и.

[Repac123456]

задание:
с помощью функции ряд найти сумму ряда заданного некоторой функцией
текст программы:

procedure TForm1.Button1Click(Sender: TObject);
var x,e: real;
j: integer;

Function Ryad(F'1-я ошибка'; Var p,e: real): real;    
var   j: integer;
begin
result:=p;
For j:=2 to 100 do
begin
p:=p*F(j);
result:=p+result;
if Abs(p)<e then
Break end
end;
Function F(j: integer):real;
begin
F:=-x*(2*j*j+j-3)/(2*j*j+j)
end;


 var
k,l: real;
begin
x:=StrToFloat(Edit1.Text);
k:=StrToFloat(Edit2.Text);
l:=x*x*(5/2);
Edit3.Text:=FloatToStr(Ryad(F,'2-я ошибка'l,k));


end;

end.

Ошибки:
[Error] Unit1.pas(36): Missing parameter type
[Error] Unit1.pas(59): Not enough actual parameters

жду ответа, как соловей лета, заранее благодарю...

[Naive]

1 ош. Пропущен тип параметра.

Function Ryad(F:real; Var p,e: real): real;

2 ош. Не достаточно необходимых параметров.

Edit3.Text:=FloatToStr(Ryad(F(some_int),l,k));

где some_int - число для вычисления ф-ии F...
=================
Поидее, и там, и там F не нужен.