Подскажите как делать блок-схемы длинных кодов и какие нужно употреблять фигуры

var
  i, n, aaa: integer;
  a, b, h, x, s, f2, absolute, otnositel: real;
  g: boolean;
 
function f(x: real): real;
begin
  f := (2 * (x * x * x)) + (2 * (x * x)) + (3 * x) + 3;
end;
 
function f1(x: real): real;
begin
  f1 := ((x * x * x * x) / 2) + ((2 * x * x * x) / 3) + ((3 * x * x) / 2) + (3 * x);
end;
 
begin
  writeln('Реализовать программу вычисления площади фигуры, ограниченной кривой');
  writeln('Данные о фигуре');
  s := 0;
  write('левая граница интервала', ' '); readln(a);
  write('правая граница интервала', ' '); readln(b);
  write('количество отрезков', ' '); readln(n);
  h := (b - a) / n;
  s := 0; x := a; g := true;
  while g = true do
  begin
    writeln('Режим работы программы');
    writeln('1 - вывод приближённого значения');
    writeln('2 - вывод точного значения');
    writeln('3 - вывод абсолютной погрешности');
    writeln('4 - вывод относительной погрешности');
    writeln('5 - вывод всех значений');
    writeln('6 - выход');
    read(aaa);
    for i := 0 to n - 1 do 
    begin
      s := s + f(x);
      x := x + h;
    end;
    s := h * s; 
    f2 := f1(b) - f1(a);
    absolute := abs(s - f2);
    otnositel := ((abs(s - f2)) / f2) * 100;
    
    case aaa of
      1: writeln('Приближённое значение', ' ', s:2:5);
      2: writeln('Точное значение', ' ', f2);
      3: writeln('Абсолютная погрешность', ' ',  absolute:0:2);
      4: writeln('Относительная погрешность', ' ', otnositel:2:2);
      5:
        begin
          writeln('Приближённое значение', ' ', s);
          writeln('Точное значение', ' ', f2);
          writeln('Абсолютная погрешность', ' ',  absolute:0:2);
          writeln('Относительная погрешность', ' ', otnositel:2:2);
        end;
      6: g := false;
    end;
  end;
end.