Заданы две прямые. Найти точку их пересечения (если таковая имеется). для простоты решения вид прямых y=kx+b

Const _Eps: Real=1e-7;{точность вычислений}
var a1,b1,c1,a2,b2,c2,x,y,d,dx,dy:Real;
 
Function RealEq(Const a, b:Real):Boolean; {строго равно}
begin
  RealEq:=Abs(a-b)<=_Eps
End; {RealEq}
 
Function LineToPoint(a1,b1,c1,a2,b2,c2: real; var x,y:real):Boolean;
{Определение координат точки пересечения двух линий. Значение функции равно true,
если точка пересечения  есть,  и false, если прямые параллельны. }
 
var d:real;
begin
  d:=a1*b2-b1*a2;
  if Not(RealEq(d,0))
 
    then
      begin
        LineToPoint:=True;
        dx:=-c1*b2+b1*c2;
        dy:=-a1*c2+c1*a2;
        x:=dx/d;
        y:=dy/d;
      end
    else
      LineToPoint:=False
End;{LineToPoint}
 
begin {main}
  writeln('Введите коэффициенты уравнений: a1,b1,c1,a2,b2,c2 ');
  readln(a1,b1,c1,a2,b2,c2);
 
  if LineToPoint(a1,b1,c1,a2,b2,c2,x,y)
    then
      begin
      writeln('Координаты точки пересечения');
      writeln(x:5:1,y:5:1);
      end
    else
      writeln('Прямые параллельны.');
  readln
end.