I dont know, why its happened, but when i replace the following lines of my code:
"
 const
   MaxN = 100;
   MaxL = 8;
 type
   TWord = string[MaxL];
   TVoc  = array [1..MaxN] of TWord;
"
to
"
 const
   MaxN = 150;
   MaxL = 20;
 type
   TWord = string[MaxL];
   TVoc  = array [1..MaxN] of TWord;
"
i've got AC!

Что это за фигня??!

Words in the text can be longer than 8 characters

Sorry, my bug