Сгенерировать правильные скобочные выражения размера 2N для одно, двух или более видов пар скобок

[canadamoscow]

Сгенерировать правильные скобочные выражения размера 2N для одно, двух или более видов пар скобок

procedure G(s, p: string; a, b: integer);
begin
  if (a=0) and (b=0) then begin Write(s,' '); Exit end;
  if a>0 then begin 
     G(s+'(', p+')', a-1, b+1);      
     G(s+'[', p+']', a-1, b+1);    {Любую из этих строк                        }
     G(s+'{', p+'}', a-1, b+1);    {можно исключить для уменьшения             }
     G(s+'<', p+'>', a-1, b+1);    {количества видов скобок, или добавить новые}
  end;  
  if b>0 then G(s+p[^1], p[:^1], a, b-1)    // G(s+p[length(p)], copy(p,1,Length(p)-1), a-1, b);
end;

begin  
  var n := 3;   
  G('', '', n, 0) 
end.

[canadamoscow]

if b>0 then G(s+p[^1], p[:^1], a, b-1) // G(s+p[length(p)], copy(p,1,Length(p)-1), a-1, b);
для упрощения, заменяем на:

  if b>0 then G(s+p[b], p[:b], a, b-1);    // G(s+p[b], copy(p,1,b-1), a, b-1);