Здесь мы убираем из выделенной скобки операциии конъюнкции, стрелки Пирса и штриха Шефера. Руководствуемся приоритетом.

if flag=true then begin
f:='';
for i:=1 to length(skobka) do
if skobka[i]<>'$' then f:=f+skobka[i];
skobka:=f;
flag:=false;
end;
//убираем конъюнкцию, штрих и стрелку
i:=2;
while i<length(skobka) do
//for i:=2 to length(s)-1 do
begin
if skobka[i]='&' then begin
if skobka[i-1]='0' then begin skobka[i-1]:='$';skobka[i]:='$';skobka[i+1]:='0';end
else if skobka[i+1]='0' then begin skobka[i-1]:='$';skobka[i]:='$';end
else begin skobka[i-1]:='$';skobka[i]:='$'; skobka[i+1]:='1';end;
flag:=true;
inc(i);
end

1. Не совсем понятный исходник
2. Метод прогонки
3. Кусочек кода ещё одной СУБД