一道题目！各位大神求助！！！！！！！！！！！【pascal吧】

program milkingcows;
var a:array[300..1000001] of boolean;
i,j,k,m,n,l,sc,c,sc2,tot1,tot2,nn:longint;
begin
readln(nn);
for i:=300 to 1000000 do a[i]:=false;
for i:=1 to nn do
begin
readln(m,n);
for j:=m to n do begin a[j]:=true; inc(c); end;
end;
i:=300;
while i<>n do
begin
repeat
inc(tot1);
inc(i);
if tot1>sc then sc:=tot1;
until a[i+1]=false; tot1:=0;
if i=n then break;
repeat
inc(tot2);
inc(i);
if tot2>sc2 then sc2:=tot2;
until a[i+1]=true; tot2:=0;
end;
writeln(sc,' ',sc2+1);
end.

题目描述三个农民每天清晨5点起床，然后去牛棚给3头牛挤奶。第一个农民在300时刻(从5点开始计时，秒为单位)给他的牛挤奶，一直到1000时刻。第二个农民在700时刻开始，在 1200时刻结束。第三个农民在1500时刻开始2100时刻结束。期间最长的至少有一个农民在挤奶的连续时间为900秒(从300时刻到1200时刻)，而最长的无人挤奶的连续时间(从挤奶开始一直到挤奶结束)为300时刻(从1200时刻到1500时刻)。你的任务是编一个程序，读入一个有N个农民(1 <= N <= 5000)挤N头牛的工作时间列表，计算以下两点(均以秒为单位):
最长至少有一人在挤奶的时间段。
最长的无人挤奶的时间段。输入 Line 1: 一个整数N。 Lines 2..N+1: 每行两个小于1000000的非负整数，表示一个农民的开始时刻与结束时刻。输出一行，两个整数，即题目所要求的两个答案。样例输入 3 300 1000 700 1200 1500 2100 样例输出 900 300

OJ过不了，会不会是时间超限？超限的话怎么解决。我刚学完语言。算法还没学。

Var
i, j: Longint; x, t: Rec;
Begin
i := l; j := r;
x := a[i];
Repeat
While a[i].l < x.l Do Inc(i);
While a[j].l > x.l Do Dec(j);
If i <= J THen Begin
t := a[i]; a[i] := a[j]; a[j] := t;

Inc(i); Dec(j);
End;
Until i > j;
If i < r Then sort(i, r);
If l < j Then sort(l, j);
End;
Begin
Assign(input, infile);
Assign(output, outfile);
Reset(input); Rewrite(output);
Readln(n);
FOr i:=1 To n Do Readln(a[i].l, a[i].r);

yy := rr - ll;
If Ans2 < yy THen Ans2 := yy;
ll := a[i].l;
End;
If rr < a[i].r Then rr := a[i].r;
End;
If Ans2 < rr - ll THen Ans2 := rr - ll;
Writeln(Ans2, ' ', Ans1);
Close(input); CLose(output);
End.

Var
i, j: Longint; x, t: Rec;
Begin
i := l; j := r;
x := a[i];
Repeat
While a[i].l < x.l Do Inc(i);
While a[j].l > x.l Do Dec(j);
If i <= J THen Begin
t := a[i]; a[i] := a[j]; a[j] := t;

Inc(i); Dec(j);
End;
Until i > j;
If i < r Then sort(i, r);
If l < j Then sort(l, j);
End;
Begin
Assign(input, infile);
Assign(output, outfile);
Reset(input); Rewrite(output);
Readln(n);
FOr i:=1 To n Do Readln(a[i].l, a[i].r);

日	一	二	三	四	五	六

一道题目！各位大神求助！！！！！！！！！！！

扫二维码下载贴吧客户端