Отрезки имеющие общие точки, Геометрия Опции

[Рустам]

Даны действительные числа a₁..a₅₀ эти числа определяют 25 интервалов числовой оси
(a₁,a₂) , (a₃,a₄) и тд.
имеют ли все данные интервалы общие точки, если да то указать какую нибудь из этих точек



Прошу доделать эту прогу пожалуйста,вроде бы на мой взгляд осталось немного, но категорически не успеваю

uses crt;
const n=4; {для примера рассматривал 4 интервала только}
var
a: array[1..2,1..n] of integer;
i,j,k:  integer;

b: array [1..2] of integer;
begin
clrscr;

for i:=1 to n do    begin
writeln('x,y');
for j:=1 to 2 do   begin

readln(a[i,j])
end;
end;


for i:=1 to n do begin

for j:=1 to 2 do begin
write(a[i,j]:3);
end;
writeln;
end;

{раз все интервалы могут иметь общую точку то достаточно взять один интервал первый например и сравнить со всеми}
for i:=2 to n do
begin
if (a[1,1]<a[i,1]) and (a[1,2]<a[i,2]) and (a[1,2]>a[i,1])  {если первый лежит чуть левее}
then
begin
b[1]:=a[i,1]; b[2]:=a[1,2];

if (a[1,1]>a[i,1]) and (a[1,2]>a[i,2]) and (a[i,1]<a[i,2]){если первый интервал лежит чуть правее}
then
begin
if b[2]<a[i,2] then b[2]:=a[i,2];
if b[1]<a[1,1] then b[1]:=a[1,1];
end;

if  (a[1,1]<a[i,1]) and (a[2,2]>a[i,2]) then  begin {если первый интервал содержит следующий}
b[1]:=a[i,1]; 
b[2]:=a[i,2];
end;

if (a[1,1]>a[i,1]) and (a[2,2]<a[i,2]) then begin {если первый интервал содержится в следующем}
b[1]:=a[1,1];
b[2]:=a[2,2];
end;
end;

readkey;
end.

[volvo]

То есть, мой вариант, который делает то же самое (за один проход, естественно, а ты думал что, я буду проходить 15 раз туда-сюда?), ты предпочел НЕ заметить, и теперь двигаешь "революционную" идею, да? Мудро... Далеко пойдешь...