Здесь проверяем флаг и призводим соответствующие операции со знаком "$", а также убираем конъюнкцию

//убираем значки $ если флаг тру
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
begin
if skobka[i]='+' then
begin
if skobka[i-1]='1' then begin skobka[i-1]:='$';skobka[i]:='$';skobka[i+1]:='1';end
else if skobka[i+1]='1' then begin skobka[i-1]:='$';skobka[i]:='$'; skobka[i+1]:='1'end
else begin skobka[i-1]:='$';skobka[i]:='$'; skobka[i+1]:='0';end;
flag:=true;
inc(i);
end;
inc(i);
end;