Написать программу в паскаль вычисляющую, какой их 2-ух отрезков больше. Отрезки

Var x1a,y1a,x2a,y2a,L1,L2,x1b,y1b,x2b,y2b,:real;
begin;
readln(x1a);
readln(y1a);
readln(x2a);
readln(y2a);
readln(x1b);
readln(y1b);
readln(x2b);
readln(y2b);
l1:=sqrt(sqr(x2a-x1a)+sqr(y2a-y1a));
l2:=sqrt(sqr(x2b-x1b)+sqr(y2b-y1b));
if I1gt;l2 then writeln('Первый');
if l1lt;l2 then writeln('2-ой');
if l1=l2 then writeln('Одинаковы');
end.

Если х1,у1 - координаты 1-го конца 1-го отрезка, х2,у2 - координаты его второго конца, то уравнение прямой, на которой этот отрезок лежит, такое: у=у1+(у2-у1)(х-х1)/(х2-х1).
Для второго отрезка (х3,у3) и (х4,у4), ровная у=у3+(у4-у3)(х-х3)/(х4-х3).
Абсцисса точки скрещения (х,у) этих прямых находится из равенства

у1+(у2-у1)(х-х1)/(х2-х1)=у3+(у4-у3)(х-х3)/(х4-х3). Это х надобно выразить в виде формулы до написания программки, чтоб х рассчитывалось в программке по этой формуле.

Схема программы:
1) проверка параллельности отрезков. Если "да", то выход и ответ "не существует".
2) проверка исполненья 2-ух двойных неравенств: x1 lt;= x lt;= x2, x2 lt;= x lt;= x4.
Если оба неравенства "правда", то ответ "существует", по другому "не существует"

Обратите внимание, что х1 обязано быть меньше чем х2, и х3 меньше чем х4.