Найти наибольшее и наименьшее значения функции в заданном интервале с заданным шагом: y=cos(x^2)+sin2x [-2p;2p]; x=p/8 — Pascal(Паскаль)

uses crt;
function F(x:real):real;
begin
F:=cos(x*x)+sin(2*x);
end;
var x,y,h,mn,mx:real;
begin
clrscr;
writeln('F(x)=cos(x^2)+sin2x int=[-2pi;2pi]:');
mn:=F(-2*pi);
mx:=mn;
h:=pi/8;
x:=-2*pi;
while x<2*pi+h do
 begin
  if F(x)<mn then mn:=F(x);
  if F(x)>mx then mx:=F(x);
  x:=x+h;
 end;
write('Min=',mn:0:2,'  Max=',mx:0:2);
readln
end.