Процедура нахождения корня уравнения методом половинного деления и методом Ньютона

uses crt;
var a,b,E: real;
    k: integer;
function f(x: real): real;
begin
 f:=sqr(x)-2*cos(x)-1;
end;
 
procedure del(var a,b,e: real; var k: integer);
var t: boolean;
    c: real;
begin
 t:=true;
 while t=true do
  begin
   c:=(a+b)/2;
   writeln('c=',c:4:2);
   if abs(f(c))>E then
    begin
     if f(a)*f(c)>0 then
      begin
       a:=c;
       inc(k);
       continue;
      end
       else
        begin
         b:=c;
         inc(k);
         continue;
        end;
    end
     else
      begin
       writeln('C=',c:4:2);
       t:=false;
       break;
      end;
  end;
  writeln('Iteratsiy: ',k);
end;
 
begin
 k:=0;
 clrscr;
 write('a/b/e: ');
 readln(a,b,E);
 del(a,b,e,k);
 readln;
end.

uses crt;
var a,b,E: real;
    i: integer;  
function f(x: real): real;
begin
 result:=sqr(x)-2*cos(x)-1;
end;
function f1(x: real): real;
begin
 result:=2*x+2*sin(x);
end;
function f2(x: real): real;
begin
 result:=2+2*cos(x);
end;
 
procedure newt(var a,b,e: real; var i: integer);
var t: boolean;
    c: array [0..300] of real;
begin
 c[0]:=a;
 t:=true;
 i:=0;
 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);
     continue;
    end
     else
      begin
       writeln('C=',c[i+1]:4:2);
       t:=false;
       break;
      end;
  end;
 writeln('Iteratsiy: ',i);
end;
 
begin
 clrscr;
 write('a/b/e: ');
 readln(a,b,e);
 newt(a,b,e,i);
 readln;
end.

uses
  crt;
 
const
  max_iter = 100;
 
var
  a, b, e, M, x0: real;
  k: integer;
 
function f(x: real): real;
begin
  result := sqr(sin(x)) - x + 1;
end;
 
begin
  clrscr;
  write('a/b/e: ');
  readln(a, b, e);
  k := 0;
  while (abs(a - x0) >= e) or (k > max_iter) do
  begin
    M := -(F(a + e) - F(a - e) ) / (2 * e);
    x0 := a;
    a := x0 + F(x0) / M;
    inc(k);
    writeln('C=', a:3:2, ' f(c)=', f(a):3:2);
  end;
  if (abs(a - x0) <= e) then
    writeln('C=', a:3:2, ' Iteratsiy: ', k)
  else
    writeln('Answer not found!');
  readln;
end.