求解 为何改了个数组范围输出就不一样了

var
  i,L,M,j,k,d:integer;
  a,b,c:array[1..10000] of integer;
begin
  read(L,M);
  for i:=1 to M do
  begin
    read(a[i],b[i]);
    for j:=a[i] to b[i] do    
    begin
       c[j]:=1;
    end;
  end;
  for i:=0 to L do 
    if c[i]=1 then k:=k+1;
  write(L-k+1);
end.
但是如果把数组范围改为1..100输出就会少一个,这是什么原因?而且之前是1..100时c实际上是超范围的,为何没错误?