Продолжение тй функции, которая была описана в прошлом посте:

else if skobka[i]='|' then begin
if skobka[i-1]='0' then begin skobka[i-1]:='$';skobka[i]:='$';skobka[i+1]:='1';end
else if skobka[i+1]='0' 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
else if skobka[i]='/' then begin
if skobka[i-1]='1' then begin skobka[i-1]:='$';skobka[i]:='$';skobka[i+1]:='0';end
else if skobka[i+1]='1' then begin skobka[i-1]:='$';skobka[i]:='$'; skobka[i+1]:='0'end
else begin skobka[i-1]:='$';skobka[i]:='$'; skobka[i+1]:='1';end;
flag:=true;
inc(i);
end;
inc(i);
end;