Метод прямого поиска, паскаль

функция : exp(x)*cos(x), пределы [5;8], найти ее максимум методом прямого поиска, надо улучшить метод: когда в точке на следующем шаге f(x) станет меньше, чем f(x) в прошлой точке, то возвращаться на 2 шага назад и переназначать пределы