Пожалуйста посмотри в чем ошибка данной программы...

program Rasskaz_iter;
uses CRT;
const E=0.0001;
var n:integer; x,a,b,c: real; ab:text;  
function f(x:real;k:integer):real;
begin
if k=1 then f:= -c/(a*x*x + b);
if k=2 then f:= c/(a*x*x*x - b);
if k=3 then f:= -c/(a*x - b);
end;
procedure mitercii(var X:real; t:integer);
var X1:real;
begin
repeat
X1:=X;
X:=f(X,t);
until abs(x-x1)<E;
end;
begin
clrscr;
writeln ('‘ введите коэффициенты’');
read (a);
read (b);
read (c);
writeln('Выберете уравнение');
writeln('1. aX^3 + bX + c = 0 ');
writeln('2. aX^4 - bX - c =0 ');
writeln('3. ax^2 – bx + c =0 ');
write('n = ');  
readln(n);
write('Введем начальное приближение X = ');
readln(X);
mitercii(X,n);
writeln('Корень уравнения X = ',X);
assign(ab,'Rasskazov_iter.TXT');
rewrite(ab);
writeln(ab,'Номер уравнения ',n);
writeln(ab,'Корень уравнения X =',x);
close(ab);
readln;
end.

Program Pr142063;
Uses CRT;
Function F(x: Real): Real;
begin
   F := (x - 1) * Exp(ln(0.5)*x);
end;
Var Eps, f1, f2, x, x1, x2, A, B : Real;
    N, i: Integer;
Begin
ClrScr;
Repeat
WriteLn('Введите границы интервала: ');
Write('A = '); ReadLn(A);
write('B = '); ReadLn(b);
if F(a)=0 then
  begin
     writeln('x=a=',a:10:7);
     readln;
     exit;
  end;
if F(b)=0 then
   begin
     writeln('x=b=',b:10:7);
     readln;
     exit;
   end;
if F(A)*F(B)>0 then WriteLn('Границы интервала заданы некорректно!');
Until F(A)*F(B)<0;
WriteLn;
Repeat
WriteLn('Укажите необходимую точность вычислений:');
Write('Eps = '); ReadLn(Eps);
if Eps <= 0 then WriteLn('Eps может иметь только положительное значение!');
Until Eps > 0;
WriteLn;
WriteLn('Метод простых итераций:');
N := Round((B - A) / eps + 0.5); 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:12:8);
   x1 := x2; f1 := f2;
  end;
WriteLn('Выполнено ', N, ' шагов.'); WriteLn;
 
WriteLn('Метод половинного деления:');
N := 0; x1 := A; x2 := B; f1 := F(x1); f2 := F(x2);
if F(A) * F(B) >= 0 then
  begin
    WriteLn('Невозможно найти нуль функции!');
  end
else
Repeat
x := (x1 + x2) / 2;
if f1*F(x) <= 0 then
  begin
   x2 := x; f2 := F(x);
  end;
if f2*F(x) <= 0 then
  begin
   x1 := x; f1 := F(x);
  end;
inc(N);
Until (x2 - x1) < eps;
WriteLn('Нуль функции на x = ', (x2 + x1)/2:12:8);
WriteLn('Выполнено ', N, ' шагов.');
ReadLn;
End.