Введите строку.Удалить все символы,расположенные между круглыми скобками.(Примечание,В строке скобки расставлены правильно,нет вложенных скобок.Может быть несколько пар круглых скобок)

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*()/();