啊啊！！70分！！

var
  s,ss:ansistring;
  i,j,k,ans,t,c,len1,len2:longint;
  function green(s:ansistring):longint;
  var i:longint;
  begin
    green:=0;
    for i:=1 to length(s) do if s[i]='G' then inc(green);
  end;
  function red(s:ansistring):longint;
  var i:longint;
  begin
    red:=0;
    for i:=1 to length(s) do if s[i]='R' then inc(red);
  end;
begin
  readln(s);
  len1:=length(s);
  if green(s)=red(s) then begin writeln(len1); exit; end;
  len2:=len1;
  while len2>0 do
  begin
    dec(len2);
    for i:=1 to len1-len2+1 do
    begin
      ss:='';
      for j:=i to len2+i-1 do
      ss:=ss+s[j];
      if green(ss)=red(ss) then begin  writeln(len2); exit; end;
    end;
  end;
  writeln('0');
end. 

测试点 #1：通过该测试点。 得分10，耗时15ms，内存3198kB。 测试点 #2：超过时间限制。 得分0，内存3178kB。

测试点 #3：通过该测试点。 得分10，耗时0ms，内存3170kB。

测试点 #4：通过该测试点。 得分10，耗时218ms，内存3235kB。

测试点 #5：错误的答案。 得分0，耗时0ms，内存3198kB。

•该行正确答案长度：2 你的答案长度：2

•你是在整个测试点输出的 0% 地方开始出错的。

•这一行你是在第 2 个字符开始与标准输出不同的。

测试点 #6：通过该测试点。 得分10，耗时0ms，内存3170kB。

测试点 #7：通过该测试点。 得分10，耗时15ms，内存3162kB。

测试点 #8：通过该测试点。 得分10，耗时15ms，内存3170kB。

测试点 #9：通过该测试点。 得分10，耗时0ms，内存3198kB。

测试点 #10：超过时间限制。 得分0，内存3182kB。

哪位大神告诉我错了哪里