Найти наибольшее отрицательное значение
 

Найти наибольшее отрицательное значение функции и соответствующее ему значение аргумента http://i.piccy.info/i5/07/37/1303707/p_p_ia_p__7.jpg
Аргумент х изменяется от начального значения 0.1 с шагом 0.15 до конечного 3.1 (радиан)



Вот так правельно????

program zadacha1;
const a=3.45; b=1.62;
var
x,y,max,maxx:real;
begin
x:=0.1;
max:=(1+exp(0.1*ln(a)))/((b-0.1)*sin(0.1)*sin(0.1)*sin(0.1));
while x<=3.1 do
begin
y:=(1+exp(x*ln(a)))/((b-x)*sin(x)*sin(x)*sin(x));
if y<max then Begin
max:=-y;
max:=-x;
end;
x:=x+0.15
end;
writeln('max=',max:2:2,' v tochke x = ',maxx);
readln
end.

Нет. Не правИльно.
Прежде всего, поясните, что есть "наибольшее отрицательное значение"? Как Вы это понимаете? Наибольшее по модулю отрицательное? Наименьшее по модулю отрицательное? Не очень понятно.
Ну а пока то, что "бросается в глаза":
Галиматья полная! Во-первых, должно быть max и maxx, а у Вас два раза max, во-вторых - ну за каким лешим Вы знаки меняете? Ни в коем случае этого делать не надо!