Нужно составить программу для нахождения экстремумов функции

var
  i, N: word;
  a, b, d, x, f, min1, max1: real;  
 
procedure func(t: real);
begin
  if t < 0 then f := exp((t-1) * ln(2)) * cos(3 * t)
  else
  if (t >= 0)and(t < 1) then f := ln(abs(t - 5)) + power(5 * t, 1 / 3)
  else f := power(t, -2.5) * sin(2 * t + 1)
end;
 
begin
  a := -random(10); //левый конец диапазона
  b := random(10); //правый конец диапазона
  N := random(100, 1000); //количество делений диапазона    
  d := (b - a) / N; //шаг увеличения абсциссы
  x := a; //начальное значение
  func(x); //вызываем процедуру вычисления значения функции
  min1 := f; //начальное значение минимума
  max1 := min1; //начальное значение максимума
  while x <= b do
  begin
    x := x + d;
    func(x); //процедура вычисления значения функции
    min1 := min(min1, f); //вычисляем минимум
    max1 := max(max1, f); //вычисляем максимум
  end;
  writeln('В диапазоне [', a, ', ', b, '] имееем:');
  writeln;
  writeln(' минимум:  ', min1);
  writeln(' максимум:  ', max1);
  writeln;
  write('Число делений диапазона:  ', N)
end.

N := random(1000) + 100;

function randomFromRange(start, finish: integer): integer;
begin
 randomize();
 randomFromRange := start + random(finish - start + 1);
end;