Выяснить, имеет ли уравнение вещественные корни - Turbo Pascal

uses crt;
procedure korni(h:real);
var a,b,c,d,x1,x2:real;
begin
writeln('h=',h:0:2);
a:=sqrt((abs(sin(8*h))+17)/(1-sin(4*h)*cos(sqr(h*h+18))));
b:=1-sqrt(3/(3+abs(sin(a*h*h)/cos(a*h*h)-sin(a*h))));
c:=a*h*h*sin(b*h)+b*h*h*h*cos(a*h);
d:=b*b-4*a*c;
if d<0 then writeln('Действительных корней нет')
else if d=0 then
 begin
   x1:=-b/(2*a);
   writeln('x1=x2=',x1:0:2)
 end
else
 begin
   x1:=(-b-sqrt(d))/(2*a);
   x2:=(-b+sqrt(d))/(2*a);
   writeln('x1=',x1:0:2,' x2=',x2:0:2)
 end;
end;
   var a,b,c,h,d,x1,y1:real;
begin
clrscr;
korni(7.3);
korni(0.73);
korni(-1.27);
readln
end.