本人初中新手（基本什么都不会，本题采用无赖方法）编译错误，请各位指正（Pascal）
var
subwaystart：array[1..100] of integer；

subwaystop：array[1..100] of integer；
subway：array[1..100] of integer；
m,l,tree,i,j,k,o,trway:integer；
begin
read（l，m）;
for i:=1 to m do
read(subwaystart[i]，subwaystop[i]);
tree:=l+1;
for j:=1 to m do
for k:=1 to m do
begin
if subwaystop[k]>=subwaystart[j]>=subwaystart[k]and k<>j and subwaystop[k]<=subwaystop[j]
then
begin
subwaystop[k]:=subwaystop[j];
subwaystart[j]:=0;
subwaystop[j]:=-1
end;
if subwaystop[k]>=subwaystart[j]>=subwaystart[k]and k<>j and subwaystop[k]>subwaystop[j]
then
begin
subwaystart[j]:=0;
subwaystop[j]:=-1
end;
if subwaystop[k]>=subwaystop[j]>=subwaystart[k]and k<>j and subwaystart[k]>=subwaystop[j]
then
begin
subwaystart[k]:=subwaystart[j];
subwaystart[j]:=0;
subwaystop[j]:=-1
end;
end;
trway:=0;
for o:=1 to m do
trway:=trway+subwaystop[o]-subwaystart[o]+1;
tree:=tree-trway;
write(tree);
end.