10分，告诉我怎么改（没数据）

var
 a:array[0..100,1..3]of longint;
 time:array[1..100]of longint;
 i,j,n,x,y,m,ans,t:longint;
begin
 ans:=1;
 read(n,m);
 for i:=1 to m do
  begin
   for j:=1 to 3 do
    read(a[i,j]);
   readln;
    if (a[i,1]<>0)and(a[j,1]<>0) then
     begin
      if a[i,2]>a[j,2]then y:=a[i,2]-a[j,2]
                      else y:=a[j,2]-a[i,2];
      if a[i,3]>a[j,3]then x:=a[i,3]-a[j,3]
                      else x:=a[j,3]-a[i,3];
      if a[i,1]>a[j,1]then t:=a[i,1]-a[j,1]
                      else t:=a[j,1]-a[i,1];
      if t>=y+x then inc(ans);
     end;
   end;
 write(ans);
end.