I got WA#29 so many times.
    I can't find the mistakes from my program.
    By the way,is that something wrong with my "reading" part?
    Here is my reaing part:
    procedure init;
  begin
    readln(m);
    for i:=1 to m do
      begin
        read(ch);
        a[i]:=ord(ch);
      end;
    readln;
  end;