Где тут ошибка? Type mismath

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

Заранее спасибо!

 

А можно весь код?
x, b, a, c должны бить типа real

 

Спасибо, в этом дело было!