My program just use this
 s:array[1..100000] of longint;
 p:array[1..100000,1..2] of byte;
I think this just take 600KB,but got MLE :(
I think the judge system "EATS" more than 300KB memory...
so,if I want to AC this problem,must I use less than 450KB?