Pascal/Turbo Pascal - Formula General en pascal

Nececito que alguien pueda tener o pueda hacer el programa de formula general para resolver ecuaciones de segundo grado para antes del 27 de agosto pleaseeeeee

BUENO AVER SI LE ENTENDI =>
LA FORMULA GENERAL DE aX² + bX + C SERIA
X1=(-b + RAIZ(b²-(4*a*c)))/(2*a)
X2=(-b - RAIZ(b²-(4*a*c)))/(2*a)

Y LA ESTRUCTURA SERIA
PROGRAM ECUACION_DE_SEGUNDO_GRADO;
USES CRT;
VAR
X1,X2,a,b,c,d:REAL;

PROCEDURE ENTRADA;
BEGIN
WRITELN('ESTE PROGRAMA CALCULA LAS RAICES DE LA SIGUIENTE ECUACION');
WRITELN;
WRITELN('aX² + bX + c');
WRITELN('PROPORCIONE LOS DATOS NECESARIOS');
WRITELN;
WRITELN('CUAL SERA EL VALOR DE a= ');READ(a);
WRITELN;
WRITELN('CUAL SERA EL VALOR DE b= ');READ(b);
WRITELN;
WRITELN('CUAL SERA EL VALOR DE C= ');READ(c);
END;

PROCEDURE PROCESO;
BEGIN
d:=((SQRT(b))-(4*a*c));
IF d<0
THEN
BEGIN
WRITELN('LA ECUACION NO TIENE RAICES REALES');
END;
ELSE
BEGIN
X1:=(-b + (QRT(d)))/(2*a);
X2:=(-b - (QRT(d)))/(2*a);
WRITELN('LA RAIZ X1 ES IGUAL A = ',X1:2:3);READLN;READLN;
WRITELN;
WRITELN('LA RAIZ X2 ES IGUAL A = ',X2:2:3);READLN;READLN;
END
END;

BEGIN
ENTRADA;
PROCESO;
END.


OYE NO ESTOY SEGURO SI SQRT SEA PARA EL CUADRADO PERO SI NO ENTONCES SQRT SERA PARA RAIZ

ammm tengo un problema me marca que IF d&lt0 es una expresion ilega o algo asi jejeje alguien me podria explicar porfabor es un tanto urgente

pzzasegurame qe sea la repuesta....