Не могу разобраться с программой

program P1;
var
x:real;
z:real;
const
pi=3.14;
a=cos(8/9);
y=exp(5*ln(ln(abs(x)+ln(20)/ln(10))-exp(pi)/(4*exp(1)+abs(exp(1/3*ln(a))))));
begin
WriteLn('Ââåäèòå çíà÷åíèÿ èêñà');
ReadLn(x);
z:= power(x,power(y,2))*sqrt(abs(a-3.5))+1-2*sin(sqr(x))/(3.41+arctan(sqr(y)));
WriteLn('çíà÷åíèÿ z = ', z);
ReadLn();
end.

Где ошибка? не работает