add is directive

AG.PascalTokenizer.pas

@@ -89,6 +89,7 @@ type
   end;
 
 function IsComment(s:string):boolean;
+function IsDirective(s:string):boolean;
 function IsName(s:string):boolean;
 function IsString(const s:string):boolean;
 

DOC_EN.MD

@@ -58,9 +58,10 @@ Has constructor Create with input: `TStrings`, GetComments: `boolean=True` and s
 
 Helper functions to analyze token text.
 
-* IsName(s: `string`): `boolean` Check for valid identifier (can be reserved word too).
-* IsComment(s: `string`): `boolean` Check for valid comment.
-* IsString(s: `string`): `boolean` Check for string constant.
+* IsName(s: `string`): `boolean` Check is identifier (can be reserved word too).
+* IsComment(s: `string`): `boolean` Check is comment.
+* IsDirective(s: `string`): `boolean` Check is compiler directive.
+* IsString(s: `string`): `boolean` Check is string constant.
 
 ## Author
 

DOC_RU.MD

@@ -58,8 +58,9 @@ TAGToken это тип `record` из:
 
 Вспомогательные функции для анализа текста.
 
-* IsName(s: `string`): `boolean` Проверка что идентификатор правильный.
-* IsComment(s: `string`): `boolean` Проверка что комментарий правильный.
+* IsName(s: `string`): `boolean` Проверка что это  идентификатор.
+* IsComment(s: `string`): `boolean` Проверка что это комментарий.
+* IsDirective(s: `string`): `boolean` Проверка что это директива компилятора.
 * IsString(s: `string`): `boolean` Проверка что это строковое значение.
 
 ## Авторы