问这个程序何时会出现存取非法的情况(PASCAL)

type
pl=^node;
node=record num:longint; sl:array ['a'..'z'] of pl; tl:shortint; end;
var
now,root:pl;
max,i,j,k,n,m:longint;
s:string;
procedure add;
var
next,now:pl;
len,j:longint;
begin
now:=root;
len:=length(s);
for j:=1 to len do
begin
next:=now^.sl[s[j]];
if next<>nil then now:=next
else begin
new(next);
now^.sl[s[j]]:=next;
if now^.tl=1
then next^.num:=now^.num+1
else next^.num:=now^.num;
now:=next;
if j=len then now^.tl:=1;
if now^.num>max then max:=now^.num;
end;
end;
end;
begin
new(root);
root^.tl:=1;
readln(n);
max:=0;
for i:=1 to n do
begin
readln(s);
add;
end;
writeln(max);
end.
--------------------------
输入:先是一个n，然后是n个单词(4 i int integer intern)；
输出：这些单词中最大嵌套层数（i-->int-->integer），要求必须是前缀才能嵌套；
上述程序在测试时有2个点“程序输出比正确答案长”，有一个点存

为什么我的瑞星会出现"此程序出现致命错误导致非法退出" 关机后，第二次开机会出现非法关机时的情况，这是怎么回事呢 为什么有时候我开机的时候，电脑会出现像非法关机那种情况呢 我的QQ堂玩这就说是危险程序，总是会出现"服务器发现非法程序,请关闭非法程序或重启" 为什么会出现这个情况? 为什么有时会出现程序无响应的情况? 为什么有些程序会出现“没有响应”的情况？ 什么情况下电脑非法关机后再次开机会出现不进行磁盘检测的现象？ 大家买的真皮皮鞋，会出现这个情况吗？ 我的电脑为什么会出现这个情况!