Метод итерация и метод половинного деления Delphi

[gabach]

Нужно найти корни уравнений методами итераций и половинного деления функции x^3-x=0 с заданной точностью eps. Скажите какие ошибке в коде, пожалуйста.

program ProjectIteratDel;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  math;
 
var
x0,yx,x,x1,xl,xr,yl,eps:real;
k,n:integer;
function Rus(S:String):String;
var i:byte;
begin
Result:='';
for i:=1 to Length(S) do
case S[i] of
'А'..'п': Result:=Result+Chr(Ord(S[i])-64);
'р'..'я': Result:=Result+Chr(Ord(S[i])-16);
'Ё': Result:=Result+Chr(240);
'ё': Result:=Result+Chr(241);
else
Result:=Result+S[i];
end;
end;
 
begin
writeln(rus('Введите x0, eps, k,xl,xr'));
readln(x0,eps,k,xl,xr);
writeln;
n:=0;
//Метод итераций
repeat
x1:=x0;
x0:=x1*x1*x1-x1;
n:=n+1;
until abs(x0-x1)<eps;
writeln(rus('Метод итераций:'));
writeln;
writeln('x1=', x1:4:2,' ':3, 'x0=',x0:k+3:k,' ':3,'n=',n:2);
writeln;
 
//Метод половинноо деления
yl:=xl*xl*xl-xl;
n:=0;
repeat
x:=(xl+xr)/2;
yx:=x*x*x-x;
if yl*yx<0 then xr:=x else xl:=x; n:=n+1;
until abs(xl-xr)< eps;
writeln(rus('Метод пол. деления:'));
writeln('xl=',xl:k+3:k,' ':3,'xr=',xr:k+3:k,' ':3,'n=',n:2);
readln;
end.

[Stilet]

А с чего ты взял что там ошибки?