Найти максимальное и минимальное значение значение функции и соответствующие значения аргументов

function G(x:real):real;
begin
if x<=-1 then G:=cos(x*x)
else if x<=5 then G:=5-2*x
else G:=0;
end;
function F(x:real):real;
begin
if x>5 then F:=sqrt(x*x+1)
else if (G(x)>0)and(G(x)<0.6) then F:=exp(G(x))
else F:=0;
end;
var a,b,h,x,y,max,min,xmx,xmn:real;
begin
write('Введите начало интервала a=');
readln(a);
repeat
write('Введите конец интервала b>a b=');
readln(b);
until b>a;
repeat
write('Введите шаг табуляции h<b-a h=');
readln(h);
until h<b-a;
x:=a;
repeat
y:=sqr(F(x)+G(x))+8*x*x;
if x=a then
 begin
  max:=y;
  xmx:=a;
  min:=y;
  xmn:=a;
 end
else
 begin
  if y>max then
   begin
    max:=y;
    xmx:=x;
   end;
  if y<min then
   begin
    min:=y;
    xmn:=x;
   end;
 end;
writeln('x=',x:7:2,' G(x)=',G(x):7:2,' F(x)=',F(x):7:2,' Y(x)=',y:7:2);
x:=x+h;
until x>b;
writeln('Максимум x=',xmx:0:2,' y=',max:0:2);
writeln('Минимум x=',xmn:0:2,' y=',min:0:2);
end.

function g(x: real): real;
begin
  if x <= -1 then
    g := cos(sqr(x))
  else
  if (x > -1) and (x <= 5) then
    g := 5 - 2 * x;
end;
 
function f(x: real): real;
begin
  if x > 5 then
    f := sqrt(x * x + 1)
  else
  if (g(x) > 0) and (g(x) < 0.6) then
    f := exp(g(x));
end;
 
var
  y, x: real;
 
begin
  x := -4;
  while x <= 4 do
  begin
    y := f(x) + sqr(g(x)) + 8 * x * x * x;
    writeln(x:8:2, f(x):12:2, g(x):12:2, y:12:2);
    x := x + 0.5;
  end;
end.