problema de rotura del collar usaco

Readln(n);

Readln(S);

Máx:= 0;

Para i:= 1 To n Do

Comenzar

T:= 0;

j:=i;

R := Verdadero; B:= Verdadero;

Mientras que R o B hacen

Comienzan

Si S[j] = 'r' Entonces B:= Falso ;

Si S[j] = 'b' Entonces R:= False;

Inc(j);

Si j > n Entonces j:= 1;

Si j = i Entonces Romper;

Fin;

T:= (j -i + n - 1) Mod n;

j:= i - 1.

R:= Verdadero; B:= Verdadero;

Mientras que R o B lo hacen

Comienzan

Si j = 0 Entonces j:= n;

Si j = i Entonces rompe;

Si S[j] = 'r' Entonces B:= Falso

Si S[j] = 'b' Entonces R:= False;

Dec(j);

Fin;

T:= T + (i + n - j - 2) Mod n;

Si T & gt Max Entonces Max:= T;

Fin;

Si Max & gt; n Entonces Max:= n;

Writeln(Max);

Cerrar(Entrada);

Cerrar(Salida) ;

Fin.