凌乱的yyy

题目描述
快noip了，yyy很紧张！
现在各大oj上有n个比赛，每个比赛的开始、结束的时间点是知道的。
yyy认为，参加越多的比赛，noip就能考的越好（假的）
所以，他想知道他最多能参加几个比赛。
由于yyy是蒟蒻，如果要参加一个比赛必须善始善终，而且不能同时参加2个及以上的比赛。

输入输出格式
输入格式：
第一行是一个整数n ，接下来n行每行是2个正整数ai,bi(ai<=bi)，表示比赛开始、结束的时间。

输出格式：
一个整数最多参加的比赛数目。

输入输出样例
输入样例#1：
3
0 2
2 4
1 3
输出样例#1：
2

说明
对于20%的数据，n≤10；
对于50%的数据，n≤1000；
对于70%的数据，n≤100000；
对于100%的数据，n≤1000000，0≤ai＜bi≤1000000。

---

type match=record
  a,b:longint;
  end;
var 
  n,i,t,ans:longint;
  m:array[1..1000000]of match;
procedure qsort(l,r:longint);
var i,j,mid:longint;
  t:match;
begin
  mid:=m[(l+r)div 2].b;
  i:=l;j:=r;
  while i<=j do
  begin
    while m[i].b<mid do inc(i);
    while m[j].b>mid do dec(j);
    if i<j then
    begin
      t:=m[i]; m[i]:=m[j]; m[j]:=t;
      inc(i); dec(j);
    end;
  end;
  qsort(l,j);
  qsort(i,r);
end;
begin
  readln(n);
  for i:=1 to n do
    readln(m[i].a,m[i].b);
  qsort(1,n);
  t:=m[1].b; ans:=1;
  for i:=1 to n do
    if m[i].a<t then continue
      else begin inc(ans); t:=m[i].b; end;
  writeln(ans);
end.