OJ Board

I have tried most of the test cases, but still resulted in "Wrong answer". Can anyone tell me wt'z wrong or give me some critical test cases???


var
sto:array[1..1000000] of string;
pe:array[1..1000000] of integer;
inp:string;
p,i,j,m,a,n:longint;
ans:array[1..100000] of string;

procedure one(s ...