用free pascal 来解两条一次函数的交点坐标.如y=ax+b和y=cx+d,a,b,d,c已知,求x、y.