Нахождение наибольшего и наименьшего значения функции

program kentawforfindingoftheminimumandmax;
uses crt;
var
 f:array[1..3] of real;
 a,b:real;
 i,max,min:integer;
begin
 writeln('y=3x*x+x-4 ,[a,b]. max=? ,min=?');
 writeln('Vvodite a');
 readln(a);
 writeln('Vvodite b');
 readln(b);
 f[3]:=-1/6;  {f`(x)=6x+1=0, =>x=-1/6}
 f[1]:=3*a*a+a-4;
 f[2]:=3*b*b+b-4;
 min:=1;
 for i:=2 to 3 do
  if f[i]<f[min] then  min:=i;
  writeln('min=',min);
 max:=1;
 for i:=2 to 3 do
  if f[i]>f[max] then  max:=i;
  writeln('max=',max);
 readln
end.

writeln('min=',min);

writeln('min=',f[min]:6:2);

writeln('max=',max);

 writeln('max=',f[max]:6:2);

program EvgeniiSp;
uses GraphABC,Crt;
const
 da = 0.1;
var
 y,a,b,max,min: real;
 
//------ Input_data ------//
 procedure Input_data;
  begin
   write('Ââåäèòå a: ');
   readln(a);
   write('Ââåäèòå b: ');
   readln(b);
   writeln();
  end;
 
//---- Output_data ------//
 procedure Output_data;
  begin
   y:=3*a*a+a-4;
   max:=y;
   min:=y;
   while a <= b do
    begin
     y:=3*a*a+a-4;
     if y > max then max:=y;
     if y < min then min:=y;
     a:=a+da;
    end;
   writeln('max = ',max:2:2);
   writeln('min = ',min:2:2);
  end;
  
begin
  ClrScr;
  Input_data;
  Output_data;
end.