помогите найти ошибки
program variant1;
uses crt;
var a,y,x:real;
b:=Pi;
c:=2*Pi;
z:=Pi/4;
y:=b;
while y < = c do
begin
x:=1-2*cos(a*y)+ln(y);
a:=ln(y)/ln(2);
writeln(y,x,a);
y:=y+z;
end;
readln;
end.