Решить уравнение в паскаль a *х²+2*b=0

Var a, x, b, s: real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if (-2*b)/a < 0 then writeln('Нет решения') else
begin
x:=sqrt((-2*b)/a);
if x=0 then writeln('x = 0') else
writeln('x1 = ', x, ' | x2 = ', -x)end
end.