Найти минимальные и максимальные значения в табуляции функции- Pascal(Паскаль)

var
  q, x, a, b, c, imax, max, imin, min: real;

begin
  a := -3;
  b := 5;
  c := 0.3;
  x := a;
  max := -MaxInt;
  imax := 1;
  min := MaxInt;
  imin := 1;
  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);
    if q > max then
    begin
      max := q;
      imax := x;
    end
    else if q < min then
    begin
      min := q;
      imin := x;
    end;
    writeln(x:3, q:10:2);
    x := x + c;
  end;
  writeln;
  writeln('MAX ', imax, ':=', max);
  writeln('MIN ', imin, ':=', min);

end.