题目描述
在进行文法分析的时候，通常需要检测一个单词是否在我们的单词列表里。为了提高查找和定位的速度，通常都要画出与单词列表所对应的单词查找树，其特点如下：
l 根节点不包含字母，除根节点外每一个节点都仅包含一个大写英文字母；
l 从根节点到某一节点，路径上经过的字母依次连起来所构成的字母序列，称为该节点对应的单词。单词列表中的每个词，都是该单词查找树某个节点所对应的单词；
l 在满足上述条件下，该单词查找树的节点数最少。
对一个确定的单词列表，请统计对应的单词查找树的节点数（包括根节点）
输入格式
一个单词列表，每一行仅包含一个单词和一个换行/回车符。每个单词仅由大写的英文字符组成，长度不超过63个字符。文件总长度不超过32K，至少有一行数据。
输出格式
仅包含一个整数和一个换行/回车符。该整数为单词列表对应的单词查找树的节点数。
样例输入
A
AN
ASP
AS
ASC
ASCII
BAS
BASIC
样例输出
13
其实，可以发现单词的长度，就是根到结点的距离
那么我们要避免不必要的重复，那么我们就要保证前面的单词都是有序的。So，就排吧
那么，这次要插入的字母数，就是每一位上不相同的字母个数。（这个处理很容易，一个while就行了）
最后记得+1，（其实，我也不知道为什么）
代码如下：
var n,i,j,ans:longint;
a:array[0..10000]of string;
begin
while not eoln() do
begin
inc(n);
readln(a[n]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
a[0]:=a[i];
a[i]:=a[j];
a[j]:=a[0];
end;
ans:=length(a[1]);
for i:=2 to n do
begin
j:=1;
while (a[i,j]=a[i-1,j])and(j<=length(a[i-1])) do inc(j);
ans:=ans+length(a[i])-j+1;
end;
writeln(ans+1);
end.