请教各位高手,关于数值区间的公共区间的问题 ( 积分: 100 )

我有一个问题想实现,但不会,请各位帮忙,小弟在此先谢了!

我想求一些数值区间的公共部分,程序中如何实现?
如123-260,45-156,221-781,12-89,452-687.......
求公共部分?

const
Max:Integer=1000;
var
MyAry:array of Integer;
I:Integer;
begin
SetLength(MyAry,Max);
FillChar(MyAry[0],0,4*(Max-1));
for I:=123 to 260 do
MyAry:=MyAry+1;
for I:=45 to 156 do
MyAry:=MyAry+1;
for I:=221 to 781 do
MyAry:=MyAry+1;
for I:=12 to 89 do
MyAry:=MyAry+1;
for I:=452 to 687 do
MyAry:=MyAry+1;
Memo1.Lines.Clear;
for I:=0 to Max do
if MyAry=5 then
Memo1.Lines.Add(IntToStr(I));
end;