Найти ошибку

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <cmath>
#include <math.h>
#include "Unit1.h"
 
float p[9]; 
float k, n; 
float a, b, e;
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
float f(float x)
{
float r, r2, q, y;
int k, n;
 
y=x;
n=0;
 
if(x<10.0)
{
n = x-10.0;
y = x+n;
}
 
r=1/y;
q=r*r;
r=std::log(y)-r/2-q/12.0*(1.0-q*(0.1+q/21.0));
 
for(k=0; k<n; k++)
{
r=r-1.0/(x+k);
}
 
return r-p[1];
}
 
 
float sgn(float x)
{
float sgn;
 
if(x<0.0)
{
sgn=-1.0;
}
 
if(x>0.0)
{
sgn=1;
}
 
return sgn;
}
 
 
void chord(float a, float b, float* x, float e, float e1)
{
int s;
float f1, f2, r, x1;
x1=a;
f1=f(a);
s=sgn(f1);
f2=f(b);
(*x)=b;
 
while(std::abs((*x)-x1) > e)
{
x1=(*x);
(*x)=(a-(b-a)/(f2-f1)*f1);
r=f((*x));
 
if(std::abs(r)<e1)
{
return;
}
 
if(sgn(r)==s)
{
a=(*x);
f1=r;
}
else
{
b=(*x);
f2=r;
}
}
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String s;
float x;
p[0] = 1;
p[1] = 2;
p[3] = 3;
p[4] = 4;
p[5] = 5;
p[6] = 6;
p[7] = 7;
p[8] = 8;
a=0;
b=8;
 
e=0.1;
 
chord(a, b, &x, e, p[2]);
s.printf("%d", x);
Memo1->Lines->Add(s);
}
//---------------------------------------------------------------------------