Believe it or not, Wrong answer

I was solving Top Batsmen using only mathematical methods (using combination equations that we all know) but I still get wrong answer… Please provide me with some test examples so I can debug my app

Here is my code :

```
program bestbats;
var
counter,t,l,k,i,j,temp,found1,found2:integer;
fact1,fact2,res:longint;
team,sorted:array[1..11] of integer;
begin
readln(t);
for l:=1 to t do
begin
for i:=1 to 11 do read(team[i]);
for i:=2 to 11 do
begin
j:=i;
while (j>1) and (team[j]>team[j-1]) do
begin
temp:=team[j];
team[j]:=team[j-1];
team[j-1]:=temp;
Dec(j);
end;
end;
readln(k); res:=0;
for i:=1 to k do
sorted[i]:=team[i];
counter:=1;
while counter<=k do
begin
temp:=sorted[counter]; found1:=0;
while sorted[counter]=temp do
begin Inc(counter); Inc(found1); end;
found2:=0;
for i:=1 to 11 do
if team[i]=temp then Inc(found2);
fact1:=1;
fact2:=1;
if found2<>found1 then
begin
for i:=1 to found1 do
begin
fact1:=fact1*i;
fact2:=fact2*found2;
Dec(found2);
end;
Res:=Res+(fact2 div fact1)-1;
end;
end;
Res:=Res+1;
WRITELN(res);
end;
end.
```