1066: 单词游戏(game)

var i,j,k,n,ans,p,len,chk,zh:longint;
    ch:char;
    s:string;
    a:array[1..100] of longint;
begin
  readln(ch);
  chk:=ord(ch)-96;
  readln(n);
  for i:=1 to n do
    begin
      readln(s);
      p:=pos(' ',s);
      val(copy(s,p+1,length(s)-p),k);
      delete(s,p,length(s)-p+1);
      len:=length(s);
      k:=-1*k mod 26;
      for j:=1 to len do
       begin
          zh:=(ord(s[j])-96+k+26) mod 26;
          if zh=0 then zh:=26;
         if zh=chk then ans:=ans+1;
       end;
  
    end;
  writeln(ans);
end.
 
/**************************************************************
    Problem: 1066
    User: wxy
    Language: Pascal
    Result: 正确
    Time:0 ms
    Memory:744 kb
****************************************************************/