Найти минимум и максимум функции

const 
  {x1 = (1 - sqrt(33)) / 2; //"запрещенные" корни x1 и x2 - на 0 делить нельзя (хотя можно канешн, кого я обманываю...)
  x2 = (1 + sqrt(33)) / 2;}
  //раскомментируй, если понадобится то же самое, только на вещественных числах
  global_max_x = 0.5; //абсцисса глобального максимума
  
var 
  a, b, tmp:integer;
  
function y(x:real):real;
begin
  y:= ln(8 + x + sqr(x));
end;
 
const
  global_max_y = real(y(global_max_x)); //Сохраним заранее глобальный максимум, он же постоянный
 
function f_min(a, b:integer):real; //локального минимума у ф-ии нет, поэтому смотрим на концы отрезков
begin
  if (y(a) < y(b)) then
    f_min:= y(a)
  else
    f_min:= y(b);      
end;
 
function f_max(a, b:integer):real;
begin
  if ((a <= global_max_x) and (b <= global_max_x)) then
    f_max:= global_max_y
  else if (y(a) > y(b)) then
    f_max:= y(a)
  else 
    f_max:= y(b);
end;
    
begin
  writeln('Введите a и b - концы отрезка:');
  read(a, b);
  if (a > b) then
  begin
    tmp:= a;
    a:= b;
    b:= tmp;
  end;
  writeln('Минимум функции на заданном отрезке: ', f_min(a, b));
  writeln('Максимум функции на заданном отрезке: ', f_max(a, b));
end.

var a, b, x, imin, imax: integer;
    y, min, max: real;
    f: boolean;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  if a > b
    then begin
      x := a;
      a := b;
      b := x
    end;
  f := false;
  for x := a to b do
    begin
      y := x - x * x + 8;
      if y > 0
        then if f
          then begin
            y := ln(y);
            if y < min
              then begin
                min := y;
                imin := x
              end
              else if y > max
                then begin
                  max := y;
                  imax := x
                end
          end
          else begin
            max := ln(y);
            min := max;
            imin := x;
            imax := x;
            f := true
          end
    end;
  if not f
    then writeln('Во всех целочисленных точках интервала [a; b] функция не определена')
    else writeln('Минимум: Y(', imin, ') = ', min, ', максимум: Y(', imax, ') = ', max);
  readln;
end.