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

[Repac123456]

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

Код:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;

procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;


implementation

{$R *.dfm}
Type
fun=Function(j:integer):real;


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

Function Ryad(F:fun;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'ошибк а',l,k));
end;

end.



Local procedure/function 'F' assigned to procedure variable

как исправить?

[vovk]

Чтото мне подсказывает что хотелось чегото подобного
implementation

{$R *.dfm}
//Type
//fun=Function(j:integer):real;


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

    Function F(j:integer):real;
      begin
        F:=-x*(2*j*j+j-3)/(2*j*j+j)
     end;
  
   Function Ryad(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;

var
k,l: real;
begin
x:=StrToFloat(Edit1.Text);
k:=StrToFloat(Edit2.Text);
l:= x*x*(5/2);
Edit3.Text:=FloatToStr(Ryad(l,k));
end;

end.