谢谢大家了，可能代码不是那么漂亮，一个点也过不了不知道为什么。
var n,i,j:longint;
s:array[1..10] of ansistring;
a:array[1..200] of longint;
b:array[1..200] of longint;
c:array[1..8] of longint;
d:array[1..10] of longint;

procedure main(x:string;y:longint);
var m:longint;
begin
m:=length(x);
for i:=1 to m do
begin
b[i]:=ord(x[i]);
inc(a[b[i]]);
end;
c[1]:=a[103] div 2;
c[2]:=a[111] div 3;
c[3]:=a[100];
c[4]:=a[109];
c[5]:=a[110] div 2;
c[6]:=a[114];
c[7]:=a[105];
c[8]:=a[32];
for i:=1 to 8 do
if c[i]<d[j] then d[j]:=c[i];
end;

begin
readln(n);
for j:=1 to n do d[j]:=maxint;
for j:=1 to n do
begin
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
fillchar(c,sizeof(c),0);
readln(s[j]);
main(s[j],j);
end;
for j:=1 to n do
writeln('Case #',j,':',d[j]);
end.