问题描述：给定一个字符串S和n个字符串T，输出在T中比S长度短的字符串的个数。具体可参考样例。
输入格式：
第一行：字符串S
第二行：n，表示共有n个字符串
接下来n行，每行为T中的一个字符串
输出格式：
仅有一行，表示T中长度比S短的字符串个数。
输入样例：
ACXX
3
ASDDDD
AAA
VV
输出样例：
2
程序清单：

var
s,t:ansistring;
n,i,slen,tlen,ans:longint;
begin
readln(s);
    slen :=   ____length(s)___    ;
    readln(n);
    ans := 0;
    for i:=1 to  ____n___     do
    begin
         ____readln(t)___  ;
        tlen := length(t);
        if   ____tlen<slen___   then ans := ans + 1;
    end;
        ____writeln(ans)___  ;
end.