1066: 单词游戏(game)

var i,j,k,n,ans,p,len,chk,zh:longint;

    ch:char;

    s:string;

    a:array[..] of longint;

begin

  readln(ch);

  chk:=ord(ch)-;

  readln(n);

  for i:= to n do

    begin

      readln(s);

      p:=pos(' ',s);

      val(copy(s,p+,length(s)-p),k);

      delete(s,p,length(s)-p+);

      len:=length(s);

      k:=-*k mod ;

      for j:= to len do

       begin

          zh:=(ord(s[j])-+k+) mod ;

          if zh= then zh:=;

         if zh=chk then ans:=ans+;

       end;

    end;

  writeln(ans);

end.

/**************************************************************

    Problem: 1066

    User: wxy

    Language: Pascal

    Result: 正确

    Time:0 ms

    Memory:744 kb

****************************************************************/