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

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