Метод простой итерации. (ЧМ)

[Rise]

Помогите пожалуйста подправить задачку.

Методом простой итерации найти приблеженное значение уравнения "3,5sin1,5x - sqrt(1-x)=0"

Вот, что получилось у меня:
(набирал основываясь на учебник Лапчика)

Program Ex2;
uses crt{, okrugl};
Type
    T=real;
var
   a,b,c,eps,x:T;
   n,m:integer;
Function f(x:T):T;
   begin
      f:=3.5*sin(1.5*x)-sqrt(1-x);
   end;
Begin
clrscr;
   writeln ('Vvedite a,b,eps');
   readln (a,b,eps);
   Repeat
      c:=(a+b)/2;
      if f(a)*f(c)<0 then b:=c
                     else a:=c;
   Until b-a<=eps;
   x:=(a+b)/2;
   {okr (x,eps,x,n);}
   if x<0 then
             begin
                if n<0 then m:=0
                       else m:=n;
                writeln ('x=',x-1e-10:7:m,' n=',n);
             end
          else begin
                  if n<0 then m:=0
                         else m:=n;
                  writeln ('x=',x+1e-10:7:m,' n=',n);
               end;
   Repeat Until Keypressed
End.

[Stilet]

Вот, что получилось у меня:

Результат выводится правильный?

[Rise]

Ответ не выводился вообще).

Спасибо за внимание, но задачку уже решил, правда немного другим способом.