Решить нелинейное уравнение методом Ньютона - Turbo Pascal

Формулировка задачи:

Решить нелинейное уравнение методом Ньютона.Программа выдают отсутствие идентификатора result.В чем ошибка?Исправьте пожалуйста

uses crt;
var a,b,E,x1: real;
    i: integer;
    t: boolean;
    c: array [0..300] of real;
function f(x: real): real;
begin
 result:=2*sqr(ln(x))+6*ln(x)-5;
end;
function f1(x: real): real;
begin
 result:=(4*ln(x)+6)/x;
end;
function f2(x: real): real;
begin
 result:=(4-4*ln(x)+6)/sqr(x);
end;
begin
 clrscr;
 write('a/b/e: '); {интервал и точность}
 readln(a,b,e);
 c[0]:=a;
 t:=true;
 i:=0;
 x1:=f1(c[i]);
 while t=true do
  begin
   c[i+1]:=c[i]-f(c[i])/f1(c[i]);
   if abs(f(c[i+1]))>E then
    begin
     inc(i);
     x1:=f2(c[i]);
     continue;
    end
     else
      begin
       writeln('C=',c[i+1]:4:2);
       t:=false;
       break;
      end;
  end;
 writeln('Iteratsiy: ',i);
 readln;
end.

Решение задачи: «Решить нелинейное уравнение методом Ньютона»

textual
                            Листинг программы 
                        

                            f:=2*sqr(ln(x))+6*ln(x)-5;
....................................
f1:=(4*ln(x)+6)/x;
....................................
f2:=(4-4*ln(x)+6)/sqr(x);
                        