Mi a program hibája?

Free Pascalban van írva és hibát jelez.Leírom a programot aminek másodfokú egyenletet kellene megoldania:

program ax;

var a, b, c, d, x1, x2:real;

begin

clrscr;

write(\'a=\');

read(a);

write(\'b=\');

read(b);

write(\'c=\');readln(c);

d:=b*b-4*a*c;

if d<0 then writeln(\'nincs gyok\') else

begin

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

writeln(\'van gyok\':x1:5:2,x2:5:2);

end;

readln

END.