Реализовать программу вычисления площади фигуры (клавиши стрелок)

program treelab;
 
uses Crt;
 
var
  opt: byte;
  n, i: longint;
  limits, partitions, res: boolean;
  Fu, x, a, b, h, s: real;
 
procedure WriteMenu;
const
  menu: array[1..6] of string =
    ('Information on function and method >',
     'Input limits of x = [a,b]...',
     'Input number of x partitions...',
     'Calculate approx. square of the figure >',
     'Assess result''s inaccuracy >',
     'Exiting the program');
var
  item: integer;
  pressedkey: char;
begin
  TextBackground(Cyan);
  TextColor(white);
  ClrScr;
  for item := 1 to High(menu) do
  begin
    if item = opt then
      begin
        TextBackground(white);
        TextColor(Red);
      end
    else begin
      TextBackground(Cyan);
      TextColor(white);
    end;
    writeln(' ', item, '.', menu[item], ' ');
  end;
  pressedkey := ReadKey;
  case pressedkey of
    #72: Dec(opt);
    #80: Inc(opt);
    #13: exit;
    #27: begin
           opt := 6;
           exit;
         end;
    '1'..'6': begin {to directly enter any menu option by index}
                opt := Ord(pressedkey) - Ord('0');
                exit;
              end;
  end;
  if opt > High(menu)
    then opt := 1
    else if opt < 1 then opt := High(menu);
  WriteMenu;
end;
 
function f(x: real): real;
begin
  f := (2) * x * x * x + (2) * x * x + (5) * x + (9);
end;
 
function f_primitive(x: real): real;
begin
  f_primitive := 1 / 2 * x * x * x * x + 2 / 3 * x * x * x + 5 / 2 * x * x + 9 * x;
end;
 
function s_exact: real;
begin
  s_exact := f_primitive(b) - f_primitive(a);
end;
 
begin
  limits := false;
  partitions := false;
  res := false;
  opt := 1;
  while true do
  begin
    WriteMenu;
    ClrScr;
    case opt of
      1: begin
           writeln(#10#13'  f(x) = 2x^3 + 2x^2 + 5x + 9;');
           writeln(#10#13'Calculation of figure''s square above OX axis using the method of left rectangles');
         end;
      2: while true do
         begin
           res := false;
           partitions := false;
           write('Lower limit (a) = '); readln(a);
           if (a < -1.4378) then begin
             writeln('Lower limit must be >= -1.4378, where f(x) >= 0'#10#13);
             continue
           end;
           write('Upper limit (b) = '); readln(b);
           if b <= a then begin
             writeln('Upper limit must be > Lower limit!'#10#13);
             continue
           end;
           limits := true;
           break;
         end;
      3: while true do
         begin
           res := false;
           write('Number of partitions for x range (n > 1) = '); readln(n);
           if n < 2 then
             writeln('Invalid value!'#10#13)
           else begin
             partitions := true;
             break;
           end;
         end;
      4: if (partitions = true) and (limits = true) then
           begin
             h := (b - a)/n;
             x := a;
             s := 0;
             for i := 1 to n do
             begin
               s :=abs(s + f(x)*h)*n;
               x := x + h;
             end;
             writeln(#10#13'Result (figure''s square) ~= ', s:0:3, ' (sq. units)');
             writeln(#10#13'Approximated within range of x = [',a:0:2,', ',b:0:2,'] devided by ', n, ' partitions');
             res := true;
           end
         else write(#10#13'Not all parameters entered!');
      5: if not res then
             write(#10#13'You need to calculate the result, first!')
         else begin
           Fu := s - s_exact;
           writeln(#10#13'Absolute inaccuracy = ', Fu:0:3, ' (sq. units)');
           writeln(#10#13'Relative inaccuracy = ', (Fu / s * 100):0:3, '%');
         end;
      6: exit;
    end;
    if (opt=1) or (opt>3) then readkey
  end;
end.

function s_exact(a, b: real): real;
  begin
    s_exact := f_primitive(b) - f_primitive(a);
  end;

2:
      begin
        repeat
          Write('Lower limit (a) = ');
          readln(a);
          if (a < Root) then
          begin
            writeln('Lower limit must be >= ', Root, ', where f(x) >= 0'#10#13);
            continue;
          end;
          Write('Upper limit (b) = ');
          readln(b);
          if b <= a then
          begin
            writeln('Upper limit must be > Lower limit!'#10#13);
            continue;
          end;
        until (a > Root) and (a < b);
        LimitsReady := True;
      end;