Найти наибольшее и наименьшее значения функции в заданном интервале с заданным шагом. Функция y=x+1/3(x*x)+2. Диапазон изменения аргумента[-1;8]. Шаг изменения аргумента 0,5 — Pascal(Паскаль)

uses crt;
 var x,y: real;
 begin
  clrscr;
  x:=-1;
  min:=x+1/3*sqr(x)+2;
  max:=min;
  while x<=8 do
   begin
    x:=x+0.5;
    y:=x+1/3*sqr(x)+2;
    if y>max then max:=y;
    if y<min then min:=y;
   end;
  writeln('максимальное значение ф-ии = ',max:4:2);
  writeln('минимальное значение ф-ии = ',min:4:2);
 end.