Почему моя прога виснет? Опции

[Skrip]

У меня прога виснет если n> 2500 (примерно), при этом диспетчер задач не говорит, что она повисла. Почему?

Код

type sm_type=array [0..10000] of char;
var sm: sm_type;
st:string;
i,n,is,si: integer;

begin

n:=1;
While n<>0 do begin
  Write('>');
  readln(n);
case n of
0: exit end;

for i:=1 to n do begin
str(i, st);
 for is:=1 to length(st) do begin si:=si+1;
 sm[si]:=st[is] end;

end;
Writeln('Number ',n,'= ',sm[n]);
Writeln;
end;
end.

Сообщение отредактировано: Skrip - 16.11.2004 17:28

[APAL]

А еще si не инициализирована в самом начале...
А может в процессе ее значение переваливает за 32767 ?...
Но скорее всего выходит за рамки 0..10000 - надо проверку ставить, так сказать "защиту от дурака"