концы отрезков Опции

[dummy]

Даны целое n>2 и вещественные числа a1, b1,...an, bn(a1<b1). Рассматривая пары ai и bi ак левые и правые концы отрезков на одной и той же прямой, определить концы отрезка, являющегося пересечением всех этих отрезков. Если такого отрезка нет, то сообщить об этом.
Подкиньте, пожалуйста, какую-нибудь идею решения! :o

[volvo]

Я бы попробовал сделать вот так (это только сам алгоритм):

min :=a[1]; max := b[1];
flag := true; i := 2;
while (i <= n) and flag do begin
  if (a[i] > min) and (a[i] < max) then min := a[i]
  else if a[i] > max then flag := false;

  if flag then begin
    if (b[i] > min) and (b[i] < max) then max := b[i]
    else if b[i] < min then flag := false;
  end;
  inc(i);
end;

if flag then writeln('отрезок: ', min, ' - ', max)
else writeln('отрезка не существует');