Площадь и погрешность иногда находит неправильно

program lab3;
  uses crt, math;
 
  var got_values : boolean;
      a,b : real;
      n : integer;
 
  procedure menu_main(active : integer) forward;
 
  procedure InputValues();
  begin
       clrscr;
       write('Enter lower integration limit : ');
       readln(a);
       write('Enter the upper limit of integration :  ');
       readln(b);
       write('Number of breaks : ');
       readln(n);
       writeln('Success. Press Any Key.');
       got_values := true;
       readln();
       // menu_main(1);
  end;
 
function f(x:real) : real;
begin
     f := 0*x*x*x + 5*x*x + (-465)*x + 454;
end;
 
procedure EvaluateValues();
          var x,sum,h,s,error : real;
begin
     clrscr;
 
     if (got_values = false) then begin
        writeln('You should choose input data first. Press Any Key');
        readln();
        InputValues();
 
     end else begin
 
               h := (b-a)/n;
               x := a + h/2;
               sum := 0;
               while x < (b-h/2) do begin
                     sum := sum + f(x);
                     x := x+h;
               end;
 
               s := h*sum;
               error := power((b-a),3)/(24 * n * n);
               writeln('Result: ',s:3:4);
               writeln('Error: ',error:3:8);
               writeln('Success. Press Any Key.');
               readln();
               // menu_main(1);
 
     end;
 
end;
 
  procedure menu_main(active : integer);
  const options_count = 3;
 
            var options : array [1..options_count] of string = ('Change Input Values', 'Evaluate Values',' Exit');
                pointer : string;
                i : integer;
                pressed : char;
  begin
       pointer := '-';
    repeat
       clrscr;
 
       for i := 1 to options_count do begin
           if (active = i) then begin
              writeln(pointer,i,'. ',options[i],' ');
           end else begin
              writeln(i,'. ',options[i]);
           end;
       end;
 
       pressed := ReadKey;
       case pressed of
 
            #13 : begin
                      if (active = 1) then InputValues();
                      if (active = 2) then EvaluateValues;
                      // if (active = 3) then Exit;
                  end;
            #0 :
            case ReadKey of
            #72 : begin
                      active := active - 1;
                      if (active < 1) then active := options_count;
                 end;
            #80 : begin
                      active := active + 1;
                      if (active > options_count) then active := 1;
                 end;
            end;
       end;
    until (pressed = #13) and (active = 3);
  end;
 
begin
     got_values := false;
 
     menu_main(1);
end.