Методом перебора с шагом 0,1 определить максимумы функций f(x)=e^x-x^3 на отрезке [0,2] и g(x)=e^x-2×62 на отрезке [-1,1]. С помощью процедур или функций — Pascal(Паскаль)

uses crt;
type func=function(x:real):real;
{$F+}
function F1(x:real):real;
begin
F1:=exp(x)-x*x*x;
end;
function F2(x:real):real;
begin
F2:=exp(x)-2*x*x;
end;
{$F-}
function Max(T:func;a,b,h:real):real;
var x,y,mx:real;
begin
x:=a;
mx:=T(x);
while x<b+h do
 begin
  y:=T(x);
  if y>mx then mx:=y;
  x:=x+h;
 end;
 Max:=mx;
end;
begin
clrscr;
writeln('Функция F(x)=e^x-x^3 интервал [0,2] шаг=0.1');
writeln(' максимум=',Max(F1,0,2,0.1):0:4);
writeln('Функция F(x)=e^x-2x^2 интервал [1,1] шаг=0.1');
writeln(' максимум=',Max(F2,1,1,0.1):0:4);
readln
end.