Обработка числовой последовательности

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,math;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Edit5: TEdit;
    procedure Button1Click(Sender: TObject);
  private
   function func(x:integer;p:integer;k:integer) : real;
    { Private declarations }
  public
    { Public declarations }
  end;
var
p,k,a,b,c,d,x0,h:integer;
  Form1: TForm1;
implementation
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); var 
x,i,m:integer; 
count:single;
temp:real;
begin
h:= strtoint(edit5.text);
m:= strtoint(edit6.text);
a:=strtoint(edit1.text); 
b:=strtoint(edit2.text); 
c:=strtoint(edit3.text); 
d:=strtoint(edit4.text); 
x0:= strtoint(edit7.text);
k:= strtoint(edit8.text);
if a>b then if  a>c then if  a>d then 
p:=a else//p равно а
if b>a then if  b>c then if  b>d then
p:=b else//p равно b
if c>b then if c>a then if c>d then
p:=c else
if d>a then if  d>c then if  d>b then
p:=d; 
x:=10;
count:=-1; 
temp:=count;
for k:=2 to n do;
begin
x:=x0+(i-1)*h;
temp:=temp*func(x,p,i);
count:=Min(count,temp);
end;
label1.Caption:=floattostr(count); 
end;
function Tform1.func(x:integer;p:integer;k:integer) : real;
begin
func:=p/x*(3*k-3)/(2*k-2); 
end;
end.