Найти минимальное и максимальное значения заданной функции

function f(a, b, x: real): real;
begin
  f := 1 / (a * x * x + a * x + b)
end;
 
var a, b, x1, x2, x, eps: real;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  repeat
    write('Точность вычислений eps > 0;  eps = ');
    readln(eps)
  until eps > 0;
  if a * a - 4 * a * b >= 0
    then begin
      writeln('Функция имеет разрывы второго рода, поиск локального максимума');
      writeln('будет производиться на интервале -1..0.');
      x1 := -1;
      x2 := 0
    end
    else begin
      write('Левая граница интервала = ');
      readln(x1);
      write('Правая граница интервала = ');
      readln(x2)
    end;
  if x1 = x2
    then writeln('Максимум не найден: границы интервала совпадают.')
    else begin
      if x1 > x2
        then begin
          writeln('Левая граница больше правой, обмен границ местами.');
          x := x1;
          x1 := x2;
          x2 := x
        end;
      while x2 - x1 > eps do
        begin
          x := (x2 + x1) / 2;
          if f(a, b, x - eps) < f(a, b, x + eps)
            then x1 := x
            else x2 := x
        end;
      x := (x2 + x1) / 2;
      if (f(a, b, x) >= f(a, b, x - eps)) and (f(a, b, x) >= f(a, b, x + eps))
        then write('Локальный максимум: x = ', x:0:12)
        else write('Локальный максимум не найден.')
    end;
  readln
end.