Экстремумы функции

[pascal90]

Мне надо найти максимум и минимум функции. Программу написал, но при выполнении выскакивает ошибка "Ошибочная операция с плавающей запятой". Помогите разобраться.
Вот код программы

program extremum;
var a,b,n,h,eps1,eps2,xmin,ymin,xmax,ym ax,x,y,x1:real;
function F(x:real):real;
begin
F:= -(x*x*sqrt(x)-x+1)/(sqrt(exp(x)))
end;
begin
writeln('Введите первую точку');
readln(a);
writeln('Введите вторую точку');
readln(b);
writeln('Введите число подинтервалов');
readln(n);
writeln('Введите погрешность поиска минимума');
readln(eps1);
writeln('Введите погрешность поиска максимума');
readln(eps2);
if b<a then writeln('Неверный ввод! b должно быть больше a')
else
h:=(b-a)/n;
x1:=a;
while h>=eps1 do
begin
ymin:=-1;
x:=x1;
repeat
y:=F(x);
if y<ymin then
begin
ymin:=y; xmax:=x;
end;
x:=x+h;
until (y>ymin) or (x>b);
x1:=xmin-h; h:=h/2;
end;
while h<=eps2 do
begin
ymax:=-100000;
x:=x1;
repeat
y:=-(x*x*sqrt(x)-x+1)/(sqrt(exp(x)));
if y>ymax then
begin
ymax:=y; xmax:=x;
end;
x:=x+h;
until (y<ymax) or (x>b);
x1:=xmax-h; h:=h/2;
end;
writeln('xmin','=', xmin:7:7, 'ymin','=', ymin:7:7);
writeln('xmax','=', xmax:7:7, 'ymax','=', ymax:7:7);
end.