请帮忙看一下我的程序哪里错了

校门外的树
(tree.pas/c/cpp)
【问题描述】
某校大门外长度为L的马路上有一排树，每两棵相邻的树之间的间隔都是1米。我们可以把马路看成一个数轴，马路的一端在数轴0的位置，另一端在L的位置；数轴上的每个整数点，即0，1，2，……，L，都种有一棵树。
由于马路上有一些区域要用来建地铁。这些区域用它们在数轴上的起始点和终止点表示。已知任一区域的起始点和终止点的坐标都是整数，区域之间可能有重合的部分。现在要把这些区域中的树（包括区域端点处的两棵树）移走。你的任务是计算将这些树都移走后，马路上还有多少棵树。
【输入文件】
输入文件tree.in的第一行有两个整数L（1 <= L <= 10000）和 M（1 <= M <= 100），L代表马路的长度，M代表区域的数目，L和M之间用一个空格隔开。接下来的M行每行包含两个不同的整数，用一个空格隔开，表示一个区域的起始点和终止点的坐标。
【输出文件】
输出文件tree.out包括一行，这一行只包含一个整数，表示马路上剩余的树的数目。
【样例输入】
500 3
150 300
100 200
470 471
【样例输出】
298
【数据规模】
对于20%的数据，区域之间没有重合的部分；
对于其它的数据，区域之间有重合的情况。

我的程序：
var
a:array[1..10000]of integer;
i,l,m,q,z,j,x:integer;
begin
readln(l,m);
fillchar(a,sizeof(a),1);
x:=0;
for i:=1 to m do
begin
readln(q,z);
for j:=q to z do
a[j]:=0;
end;
for i:=0 to l do
x:=x+a[i];
write

请帮忙看一下这个C程序哪里错了。 请帮忙看一下我的程序 大家帮我看一下的程序哪里错了 帮忙看一下我的程序哪里出错了？？？？拜托了！！！ 各位帮忙看一下，这个程序哪里错了？ 请帮忙看下这个C程序哪里错了? 请大家帮我看一下，这个程序哪里错了，谢谢了 请大家帮我看一下这个程序哪里出了错。运行的时候不能跳出循环。 一个c语言的程序不知道哪里错了，谢谢大家帮忙看一下 请大家帮我看一下这个程序哪里出了错。