Не вычисляется интеграл по методу левых и правых прямоугольников

var
  Form1: TForm1;
a,b,eps,i,s,xb,n:real;
 
implementation
 
{$R *.dfm}
function fifa(x:real):real;
begin
  fifa:=x;
 
end;
 
 
procedure Metod_Trapeciy;
 var
 x1,x2,x3:real;
c:longint;
begin
 i:=0;
for c:=1 to round(abs(b-a)/eps) do
 begin
x1:=fifa(a+c*eps);
x2:=fifa(a+c*eps+eps);
if x2>x1 then x3:=x1 else x3:=x2;
i:=i+abs(x2-x1)*eps+abs(x3)*eps;
end;
end;
 
procedure pravix ;
var i,n:integer; a,b,h,t,p,x:real;
begin
   h:=(b-a)/n;
  s:=0;
  xb:=a;
  for i:=1 to n-1 do
  begin
     x:=xb+i*h;
     s:=(s+fifa(x))*h;
end;
 end;
 
 procedure levix;
  var i,n:integer; a,b,h,t,p,x:real;
begin
   h:=(b-a)/n;
  s:=0;
  xb:=b;
  for i:=1 to n-1 do
  begin
     x:=xb+i*h;
     s:=(s+fifa(x))*h;
 end;
 end;
 
 
 
 
 
 
 
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Edit3.Enabled:= CheckBox1.Checked;
end;
 
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
 a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  eps:=StrToFloat(Edit3.Text);
 
  Metod_Trapeciy;
 
  Edit4.Text:=FloatToStr(i);
end;
 
 
 
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  n:=StrToFloat(Edit5.Text);
 
  levix;
 
  Edit4.Text:=FloatToStr(S);
end;
 
 
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  n:=StrToFloat(Edit5.Text);
 
  pravix;
 
  Edit4.Text:=FloatToStr(s);
end;
end.