大家帮忙看看哪错了，一运行就退出

const
shu:array[0..9,0..9] of integer=((0,1,0,0,0,0,0,1,1,0)
,(1,0,0,1,1,0,0,1,1,1)
,(0,0,0,0,0,0,0,0,1,0)
,(0,1,0,0,0,0,0,1,1,1)
,(0,1,0,0,0,0,0,0,1,1)
,(0,0,0,0,0,0,1,0,1,1)
,(0,0,0,0,0,1,0,0,1,0)
,(1,1,0,1,0,0,0,0,1,1)
,(1,1,1,1,1,1,1,1,0,1)
,(0,1,0,1,1,1,0,1,1,0));
var
num,i,lst:integer;
st:string;
z,tj:array[1..10] of integer;
procedure try(n:integer);
var
i:integer;
begin
i:=0;
if n>lst then for i:=1 to (n-1) do num:=num*tj[i];
for i:=0 to 9 do tj[n]:=tj[n]+shu[z[n],i];
try(n+1);
end;
begin
num:=1;
read(st);
lst:=length(st);
for i:=1 to lst do z[i]:=ord(st[i])-48;
try(1);
writeln(num);
writeln;
end.

液晶数字<?xml:namespace prefix="o" ns="urn:schemas-microsoft-com:office:office"></?xml:namespace>液晶显示的十个阿拉伯数字（7笔画），把横和竖的一个短划都称为一笔，如7有3笔，8有7笔。编一程序，重新排列十个数，使其相邻数字都可以由另一个数字加上几笔或减去几笔组成（如 4107395682），但不能又加又减。输出所有可能的排列，并统计个数。

后面加个readln?

大家可以运行试试，复制下来粘到记事本里，然后用程序打开就好。

目前结论是死循环，可该怎么办！！！

递归没有边界
在if n>lst那里加个exit

求大神来解！！！！

因为比较喜欢车，自己也挣了点小钱。所以不断的在换车，近两年先后买了卡宴，R8，保时捷911，前两个月又买了个玛莎拉蒂，感觉还不错。前天刚买了辆盖拉多，怎么说呢，兰博这个品牌和法拉利的竞争很激烈，但车更偏向于硬朗，开起来不够流畅，不像法拉利那样操控极佳，车速也比不过朋友家的GTR，毕竟车重在那里。但是还不错，就有一个缺点，就是太费电，四节南孚一会儿就没电了