for(p=buf; *p; *p++)
{
 if(isalpha(*p)!= 0)
 {
  Hind[*p - 'A']++;
 }
}