if a<=0 then
d:=b*b-(4*c);
не правильно! Если а меньше 0 - оно вычисляется, если равно 0 - дискриминант равен b*b.
снеси это условие. И прочитай учебник