Как найти мин и макс значения в табуляции функции?

[idmessage]

program tabuliacia;
var
 q,x,a,b,c:real;
begin
 a:=-3;
 b:=5;
 c:=0.3;
 x:=a;
 while x <= b do
 begin
  if x < 0 then 
   q:=abs(x+ln(abs(cos(x))));
  if (x >= 0) and (x <= 1) then
   q:=(x - PI)* sin(x+PI)/cos(x+PI) + 2.1 * 0.001;
  if x > 1 then
   q:=(x + 3.5) * sqr(ln(x)) * ln(x) / sin(x);
  writeln(x:3, q:10:2);
  x:=x+c;
 end;
end.

Помогите плиз.