Протабулировать функцию на заданном отрезке

uses
  crt;
 
var
  a, b, max, min, dx, y, q: real;
 
begin
  clrscr;
  repeat
    write('Начало отрезка: ');read(a);
    write('Конец отрезка: ');read(b);
  until (a >= 0) and (a <= b);//ОДЗ
  clrscr;
  q:= a;
  dx := 0.1;  //Шаг табулирования
  writeln('y = sqr(x-1)+cos(sqrt(x)+2)');
  writeln('  x   |    y');
  max :=  sqr(a-1)+cos(sqrt(a)+2);
  min := max;
  while a<=b do
  begin
    y :=  sqr(a-1)+cos(sqrt(a)+2);
    writeln(a:2:3, ' | ', y:2:5);
    if y > max then max := y;
    if y < min then min := y;
    a := a + dx;   // Значение по оси Х + шаг табулирования
  end;
  writeln;
  writeln('Максимальное значение функции: ', max:2:5);
  writeln('Минимальное значение функции: ', min:2:5);
 
  begin
   repeat q:=(q + dx)
   until a * q < 0
   end;
  writeln('Функция меняет знак на промежутке от ',a,' до ',q,' включительно');
end.

uses
  crt;
 
var
  a, b, max, min, dx, y, y1, q: real;
 
begin
  clrscr;
  repeat
    write('Начало отрезка: ');read(a);
    write('Конец отрезка: ');read(b);
  until (a >= 0) and (a <= b);//ОДЗ
  clrscr;
  q := a;
  dx := 0.1;  //Шаг табулирования
  writeln('y = sqr(x-1)+cos(sqrt(x)+2)');
  writeln('  x   |    y');
  max :=  sqr(a - 1) + cos(sqrt(a) + 2);
  min := max;
  while a <= b do
  begin
    y :=  sqr(a - 1) + cos(sqrt(a) + 2);
    writeln(a:2:3, ' | ', y:2:5);
    if y > max then max := y;
    if y < min then min := y;
    a := a + dx;   // Значение по оси Х + шаг табулирования
  end;
  writeln;
  writeln('Максимальное значение функции: ', max:2:5);
  writeln('Минимальное значение функции: ', min:2:5);
  repeat
    y :=  sqr(q - 1) + cos(sqrt(q) + 2);
    q := (q + dx);
    y1 := sqr(q - 1) + cos(sqrt(q) + 2);
  until y1 * y < 0;
  writeln('Функция меняет знак на промежутке от ', q - dx, ' до ', q, ' включительно');
end.