برنامج صغير بـ باسكال يحل جميع المعادلات من الدرجة الثانية

السلام عليكم ورحمة الله وبركاته
هذا برنامج صغير بـ باسكال يحل جميع المعادلات من الدرجة الثانية
Program abdallah;
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.

سلام عليكم
والله مشكوووووور

merci