Решение нелинейного уравнения методом хорд

write('Vvedite uravnenie:');(ввод любого уравнения)
readln(s);delete(s,length(s)-1,2);(я убрал '=0' чтобы потом подставить в формулу но для подстановки нужно перейти от  s(string) к чему угодно но интеджер иначе ошибка)
writeln('Vvedite interval na kotorom est chot 1 reshenie:');
readln(a,b);
write('Vvedite tochnost:');
readln(d);

uses Crt;
var x,eps,a,b,c:real;
    n:integer;
 
function f(x:real):real;{здесь можете написать любую формулу}
 begin
   f:=sqr(x)-5*x+6;
 end;
 
function Chord(a,b:real):real;
 begin
   Chord:=(f(b)*a - f(a)*b)/(f(b) - f(a))
 end;
 
begin
 clrscr;
 writeln('Введите значения* a и b');
 readln(a,b);
 writeLn('Введите точность eps');
 readln(eps);
 clrscr;
 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.

uses Crt;
var x,eps,a,b,c:real;
    n:integer;
function f(x:real):real;
 begin
   f:=sqr(x)-5*x+6;
 end;
begin
 clrscr;
 writeln('Введите значения* a и b');
 readln(a,b);
 writeLn('Введите точность eps');
 readln(eps);
 clrscr;
 n := 0;
 repeat
   c:=(f(b)*a-f(a)*b)/(f(b)-f(a));
   if f(a)*f(c) > 0 then a := c
   else b := c;
   Inc(n)
 until abs((f(b)*a-f(a)*b)/(f(b)-f(a))-c)<eps;
 
 x := c;
 writeLn('Корень x=', x:10:7);
 writeLn('Количество итераций =  ',n);
 readkey
end.

function f(x:real):real;
 begin
   f:=sqr(x)-5*x+6;
 end;
begin