Пересечение отрезков на одной прямой

var
n,i,min,max:integer;
a,b:array[1..100]of integer;
f:boolean;
begin
readln(n);
for i:=1 to n do
readln(a[i],b[i]);
min:=a[1];
max:=b[1];
for i:=1 to n do
begin
if a[i]>min then min:=a[i];
if b[i]<max then max:=b[i];
end;
f:=true;
for i:=1 to n do
begin
if min>b[i]then f:=false;
if max<a[i]then f:=false;
end;
if f then writeln(min,' ',max)else writeln('no solution');
end.

uses crt;
var n,i:integer;
    a,b,x1,x2:real;
    f:boolean;
begin
clrscr;
repeat
write('Количество отрезков >2  n=');
readln(n);
until n>2;
f:=false;
repeat
writeln('Введите концы первого отрезка a<b');
readln(x1,x2);
until x1<x2;
writeln('Введите концы остальных отрезков');
for i:=2 to  n do
 begin
  repeat
  writeln('Введите концы ',i,' отрезка a<b');
  readln(a,b);
  until a<b;
  if ((a>=x1)and(a<x2))or((b>x1)and(b<=x2)) then
   begin
    f:=true;
    if a>x1 then x1:=a;
    if b<=x2 then x2:=b;
   end;
 end;
if not f then write('Пересечения нет')
else write('Концы отрезка пересечения х1=',x1:0:2,' x2=',x2:0:2);
readln
end.

if ((a>=x1)and(a<x2))or((b>x1)and(b<=x2)) then

var 
  Y:integer=0; Z:integer=0; 
  n,i:integer;
  a,b,x1,x2:real;
  f:boolean;
begin
repeat
write('Количество отрезков >2  n=');
readln(n);
until n>2;
repeat
writeln('Введите концы первого отрезка a<b');
readln(x1,x2);
until x1<x2;
writeln('Введите концы остальных отрезков');
 
for i:=2 to n do
 begin
  repeat
  writeln('Введите концы ',i,' отрезка a<b');
  readln(a,b);
  until a<b;
  f:=false;
  if ((a>=x1)and(a<x2))or((b>x1)and(b<=x2)) or ((a<x1) and (b>x2)) then
   begin
    f:=true;
    if (a>=x1) then x1:=a
    else Y:=Y+1;
    if (a<x1) and (b>x1) then Y:=Y-1;
    if b<=x2 then x2:=b
    else Z:=Z+1;
    if (b>x2) and (a<x2) then Z:=Z-1;
   end;
 end;
if ((Y>0) or (Z>0) or (not f)) then writeln('Пересечения нет')
else writeln('Концы отрезка пересечения х1=',x1:0:2,' x2=',x2:0:2);
write (Y,Z,F);
end.