Ошибка в программе (invalid floating point operation ?)

[ALABAMA]

Program lab1; {dyhotomichnyi poshuk}
uses crt;
const e=0.001; h=3*e;
var x,a,b,ya,yb:real; i:integer;
begin clrscr;
writeln('Fynksia: y=sqrt(10-exp(ln(x)*3)))');
writeln;
a:=-3; b:=3;
while (b-a)>=e do begin
inc(i);
x:=(a+b)/2;
ya:=sqrt(10-exp(ln(x-h)*3));
yb:=sqrt(10-exp(ln(x+h)*3));
if ya>yb then b:=x+h else
if ya<yb then a:=x-h else break;
end;
textcolor(9);
writeln('x_max=',x:7:5,' y_max=',ya:7:5,', Vukonano: ',i,' iteracii.');
readln;
end.

[deathNC]

Выделяйте программный код тегами [CODE]
Удобнее ведь читать будет!

[deathNC]

program lab1; {dyhotomichnyi poshuk}
uses
  crt;
const
  e=0.001;
  h=3*e;
var 
  x, a, b, ya, yb, buffer: Extended;
  i: Integer;
begin
  clrscr;
  writeln('Fynksia: y=sqrt(10-exp(ln(x)*3)))');
  writeln;
  a:=-3;
  b:=3;
  while (b - a) >= e do
    begin
      inc(i);
      x := (a+b) / 2;
      buffer := x - h;
      buffer := 3 * ln(buffer);
      buffer := exp(buffer);
      ya := sqrt(10 - buffer);
      buffer := x + h;
      buffer := 3 * ln(buffer);
      buffer := exp(buffer);
      yb := sqrt(10 - buffer);
      If ya>yb then
        b:=x+h
      else if ya < yb then
        a:=x-h
      else
        break;
    end;
  TextColor(9);
  WriteLn('x_max=',x:7:5,' y_max=',ya:7:5,', Vukonano: ',i,' iteracii.');
  ReadLn;
end.

Происходит переполнение при выполнении операции с плавающей точкой. Попробуй этот код, тут вероятность ошибки должна быть меньше.

[deathNC]

Ещё вероятно, что под знаком логарифма появляется не положительное число - это не допустимо.
Но от этого уже сам отлаживай программу