I found some mistakes, but still WA
[pascal]Program p191;
Const Eps = 1e-7;
Type TPoint = Record X,Y : Extended; End;
TLine = Record A,B,C : Extended; End;
Var p1,p2,e1,e2 : TPoint;
tmp : Extended;
N,t : Integer;
l : TLine;
Procedure MakeLine(T1,T2:TPoint;Var L:TLine);
begin
l.a:=t1.y-t2.y;
l.b:=t2.x-t1.x;
l.c:=-t1.x*(t1.y-t2.y)+t1.y*(t1.x-t2.x);
end;
Function Min(a,b : extended) : extended;
begin
if a<b then Min:=a else Min:=b;
end;
Function Max(a,b : extended) : extended;
begin
if a>b then Max:=a else Max:=b;
end;
Function Check : boolean;
var y1,y2,x1,x2 : extended;
begin
if (p2.x-e1.x>-eps)and(e1.x-p1.x<eps) then
if (p1.y-e1.y>-eps)and(e1.y-p2.y<eps) then begin
Check:=True;
exit;
end;
if (p2.x-e2.x>-eps)and(e2.x-p1.x<eps) then
if (p1.y-e2.y>-eps)and(e2.y-p2.y<eps) then begin
Check:=True;
exit;
end;
if abs(e1.x-e2.x)<eps then begin
Check:=True;
if (e1.x-p1.x>-eps)and(p2.x-e1.x>-eps)and
(min(e1.y,e2.y)-eps<p1.y)and(max(e1.y,e2.y)+eps>p2.y) then exit;
Check:=False;
exit;
end else
if abs(e1.y-e2.y)<eps then begin
Check:=True;
if (e1.y-p2.y>-eps)and(p1.y-e1.y>-eps)and
(min(e1.x,e2.x)-eps<p2.x)and(max(e1.y,e2.y)+eps>p1.x) then exit;
Check:=False;
exit;
end;
y1:=-(l.a*p1.x+l.c)/l.b;
if (p1.y-y1>-eps)and(y1-p2.y>-eps)and
(min(e1.y,e2.y)-eps<y1)and(max(e1.y,e2.y)+eps>y1) then begin Check:=True; exit; end;
y2:=-(l.a*p2.x+l.c)/l.b;
if (p1.y-y2>-eps)and(y2-p2.y>-eps)and
(min(e1.y,e2.y)-eps<y2)and(max(e1.y,e2.y)+eps>y2) then begin Check:=True; exit; end;
x1:=-(l.b*p1.y+l.c)/l.b;
if (p2.x-x1>-eps)and(x1-p1.x>-eps)and
(min(e1.x,e2.x)-eps<x1)and(max(e1.x,e2.x)+eps>x1) then begin Check:=True; exit; end;
x2:=-(l.b*p1.y+l.c)/l.b;
if (p2.x-x2>-eps)and(x2-p1.x>-eps)and
(min(e1.x,e2.x)-eps<x2)and(max(e1.x,e2.x)+eps>x2) then begin Check:=True; exit; end;
Check:=False;
end;
begin
Read(N);
for t:=1 to N do begin
Read(e1.x,e1.y,e2.x,e2.y,p1.x,p1.y,p2.x,p2.y);
MakeLine(e1,e2,l);
if p1.x>p2.x then begin
tmp:=p1.x;
p1.x:=p2.x;
p2.x:=tmp;
end;
if p1.y<p2.y then begin
tmp:=p1.y;
p1.y:=p2.y;
p2.y:=tmp;
end;
if Check then Writeln('T') else Writeln('F');
end;
end.[/pascal]
I get Accepted at last! 
