Var
  s:string;
  i,n,k:integer;
begin
  Write('Введите выражение: '); Readln(s);
  i:=Length(s);
  while i>0 do begin
    if s[i]=')' then begin
      k:=0; Dec(i);
      while (s[i]'(') and (i>0) do
      begin Dec(i); Inc(k) end;
      Delete(s,i+1,k)
    end;
    Dec(i)
  end;
  Writeln(s)
end.

Тестовое решение:
Введите выражение: 3*(a+b)/(a-b);
3*()/();