Решение уравнения

uses crt;
function F(x:real):real;
begin
   F:=x*x*x*x*x-3.2*x*x*x-3.5*x*x-4.6*x-5;
end;
var eps,f1,f2,x,x1,x2,a,b:real;
    n,i:integer;
begin
clrscr;
writeln('Нахождение корня уравнения x^5-3,2x^3-3,5x^2-4,6x-5=0');
writeln('   на интервале [2;3] с точностью 0.00001: ');
a:=2;
b:=3;
eps:=0.00001;
if F(a)=0 then writeln('x=a=',a:0:5)
else if F(b)=0 then writeln('x=b=',b:0:5)
else if F(A)*F(B)>0 then WriteLn('Границы интервала заданы некорректно!')
else
 begin
  n:=round((b-a)/eps);
  x1:=a; f1:=F(x1);
  for i:=1 to n do
   begin
    x2:=x1+(b-a)/n;
    f2:=F(x2);
    if f1*f2 <= 0 then writeln('x = ', (x2 + x1)/2:0:5);
    x1:=x2; f1:=f2;
   end;
 end;
readln
End.

Uses Crt;
Var
  x, Eps, a, b, c: real;
  n: Integer;
 
Function f(x: real): real;
  Begin
    f := x*x*x*x*x-3.2*x*x*x-3.5*x*x-4.6*x-5;
  End;
 
Function Chord(a, b: real): real;
  Begin
    Chord := (f(b)*a - f(a)*b) / (f(b) - f(a))
  End;
 
begin
  ClrScr;
  a:=2;
  b:=3;
  eps:=0.0001;
  n := 0;
  Repeat
    C := Chord(a, b);
    If f(a)*f(c) > 0 Then a := c
    Else b := c;
    Inc(n)
  Until Abs(Chord(a, b) - C) < Eps;
  x := c;
  WriteLn('Корень равен x=', x:10:7);
  WriteLn('Количество итераций =  ',n);
  ReadKey
end.