Im creating a solve quadratic formula HLA program but im having issues finding the error

program solveQuadratic;

#include$($ "stdlib.hhf$")$;

static

a: real$32$;

b: real$32$;

c: real$32$;

discriminant: real$32$;

root$1$: real$32$;

root$2$: real$32$;

begin solveQuadratic;

$//$ Prompt and read values for a$,$ b$,$ and c

stdout.put$("$Gimme a value for a: $")$;

stdin.get$($a$)$;

stdout.put$("$Gimme a value for b: $")$;

stdin.get$($b$)$;

stdout.put$("$Gimme a value for c: $")$;

stdin.get$($c$)$;

$//$ Calculate the discriminant

mov$($b$,$ eax$)$;

fld$($eax$)$;

fmul$($st$0,$ st$1)$; $//$ b$^2$

fld$($a$)$;

fld$($c$)$;

fmul$($st$0,$ st$1)$; $//$ a $*$ c

fadd$($st$0,$ st$1)$; $//2$ac

fsub$()$; $//$ b$^2-4$ac

fstp$($discriminant$)$;

$//$ Compute the roots

fld$($discriminant$)$;

fsqrt$()$;

fstp$($root$1)$; $//$ store sqrt$($discriminant$)$ in root$1$

$//$ Calculate the positive root

fld$($b$)$;

fchs$()$; $//-$b

fld$($root$1)$;

fadd$()$; $//-$b $+$ sqrt$($discriminant$)$

fld$($a$)$;

fadd$($st$0,$ st$0)$; $//2$a

fdiv$()$; $//(-$b $+$ sqrt$($discriminant$))/(2$a$)$

fstp$($root$1)$;

$//$ Calculate the negative root

fld$($b$)$;

fchs$()$; $//-$b

fld$($root$1)$;

fsub$()$; $//-$b $-$ sqrt$($discriminant$)$

fld$($a$)$;

fadd$($st$0,$ st$0)$; $//2$a

fdiv$()$; $//(-$b $-$ sqrt$($discriminant$))/(2$a$)$

fstp$($root$2)$;

$//$ Output the roots

stdout.put$("$x is $",$ root$1$:$0$:$5,"$ and x is also $",$ root$2$:$0$:$5,"$

$")$;

end solveQuadratic;