Pascal/Turbo Pascal - como puedo..

como puedo programar en pascal , esta formula y solo el q use el programa tenga q sustituir valores
X= a+-b sqrt b²-4ac /2a

eh tratado de programarla d dos forma diferentes y no me lo resuelve,m todo va con minusculas

PROGRAM ECUA;
USES CRT;
VAR
a,b,c:REAL;
VAR
resultado:REAL;

BEGIN
{Calcula la incognita positiva de una ecuacion de 2º grado}

ClrScr;

WRITE ('Para calcular la incognita positiva de una ecuacion');
WRITE (' de segundo grado escriba todas las variables:');
WRITELN (' ');
WRITELN (' ');

WRITE ('Escriba a: ');
READLN (a);
WRITE ('Escriba b; ');
READLN (b);
WRITE ('Escriba c; ');
READLN (c);
WRITELN (' ');

resultado:=(-b +sqrt(sqr (b) - 4*a*c))/(2*a);

WRITE ('RESULTADO: ');
WRITE(resultado:5:2);

END.

PROGRAM ecua2;
USES CRT;
VAR
a,b,c:REAL;
VAR
resultado:REAL;

BEGIN
a:=6;
b:=6;
c:=1;

resultado:=(-b+sqrt(sqr (b) - 4*a*c))/(2*a);

ClrScr;

WRITE ('RESULTADO:');
WRITE(resultado:5:2);
END.

Los argumentos de la función Sqrt() tienen que ser "reales". En la fórmula tenés que cambiar las constantes enteras por su correspondiente en punto flotante. Ejemplo: cambiar 4 por 4.0

resultado:= (-b + Sqrt(Sqr(b) - 4.0 * a * c)) / (2.0 * a);

Otra cosa que podés hacer es cambiar:

WRITELN (' ');
por
WRITELN;

Suerte.

PD: Mandame la receta :-)