مشروع عمل برنامج حل معادلات من الدرجة الثانية

السلام عليكم ورحمة الله وبركاته
قمت بفترة بعمل برنامج يحل معادلات من الدرجة الثانية بلغة باسكال
وطبقته وعمل بشكل جيد لكن علي عمله بدلفي كي يستعمله الجميع مثل اي برنامج تطبيقي
عى العموم هذا هو البرنامج كتبيا بـ الباسكال
قريبا سيتم اكمال العمل ان شاء الله
وسوف اضعه باسم جمعية السعادة كهدية
--------

Program Saladine;
Var a,b,c,d,x,y:real;
Begin
Read(a,b,c);
d:=SQR(b)-4*a*c;
If d>0 Then
Begin
x:=-b-SQRT(d)/2*a;
y:=-b+SQRT(d)/2*a;
Writeln('x=',x);
writeln('y=',y);
end
else if d=0 Then
Begin
x:=-b/2*a;
y:=x
Write('x=y=',x);
end
else
Write('there is not a solution in Number real');
End.
--------

لا تنسوني ووالدي من صالح دعائكم