大家帮忙看看我的程序，我不是故意卡他的，在自己电脑上运行了不会死循环的啊

program p1024;

var

b:array[-2..100,-2..20]of longint;

a,c:array[-2..20]of longint;

s:string;

procedure jian(n:longint);

var i:longint;

begin

i:=1;

while i