Какой алгоритм должен быть: вычисляю значение из строки со скобками

function culc(s: string) : integer;
var ch: string;
    i, n, n1, code: integer;
    flag1, flag2: boolean; // сигнал к изменению числа
    otv: integer; // записывать ответ
begin
for i := 1 to length(s) + 1 do   // последний виток цикла обработка последнего числа
begin
  if ((s[i] >= '0') and (s[i] <= '9')) then
    ch := ch + s[i]
  else
  begin
    val(ch, n, code);
    ch := '';
            // действие зависит от флага
    if flag1 then
    begin
      n := n * n1;
      flag1 := false;
    end;
    if flag2 then
    begin
      n := n * (-1);
      flag2 := false;
    end;
            // условия изменения флага
    if s[i] = '*' then
    begin
      flag1 := true;
      n1 := n; // сохранить число для операции умножения
    end
    else
    begin
      if  s[i] = '-' then
        flag2 := true;
      otv := otv + n;
    end;
  end;
end;
result := otv;
end;
 
var s: string;
begin
 
  s := '5*3+(90-10*(5-9))';
  write(culc(s));
  readln
end.

ПокаЕстьСкобки
begin
 '5*3+(90-10*(5-9))'
 нашли (5-9)->посчитали/заменили culc( '5-9');
 получили '5*3+(90-10*-4)'
 нашли (90-10*-4)->посчитали/заменили culc('90-10*-4');
 получили  '5*3+130' 
end;
culc( '5*3+130' );

function culc(s: string): integer;
 
var n, n1, i, code, otv: integer;
    s1,ch,newstr: string;
    flag1, flag2, skobkaflag, skobkaend: boolean;
 
begin
  s := s + ' ';
  ch := '';
  flag1 := false;
  flag2 := false;
  skobkaflag :=false;
  skobkaend := false;
  otv := 0;
  newstr := '';
  for i := 1 to length(s) do  //подача строки
    begin                     //сначала проверить скобки, чтобы пустить запись строки в newstr
      if s[i]=')' then
      begin
        skobkaflag := false;
        skobkaend := true;
      end
      else
      if skobkaflag = true then
       newstr := newstr + s[i]
      else if ((s[i] >= '0') and (s[i] <= '9')) then
        ch := ch + s[i]
      else if s[i]='(' then
        skobkaflag := true
      else
        begin
          val(ch, n, code);
          ch := '';
          if skobkaend = true then    //если скобка зарылась, то работаем с содержимым
          begin
             skobkaend := false;
             n := culc(newstr);
          end;
          // действие зависит от флага
          if flag1 then
          begin
            n := n * n1;
            flag1 := false;
          end;
          if flag2 then
          begin
            n := n * (-1);
            flag2 := false;
          end;
          // условия изменения флага
          if s[i] = '*' then
          begin
            flag1 := true;
            n1 := n; // сохранить число для операции умножения
          end
          else
          begin
            if  s[i] = '-' then
              flag2 := true;
            otv := otv + n;
          end;
        end;
     end;
     culc := otv;
end;
 
var s: string;
begin
  s:= '5+(10-5)*3+(2*(2+3))';
  writeln(culc(s));
  readln
end.