Ошибка: переменная не является указателем - Pascal ABC

Program Laba6;
Uses Crt;
Var n:integer;
c,b,z,a,x:real;
Begin
writeln('âûáåðèòå Г*îìåð ГґГіГ*êöèè:');
writeln('1.|-x^3+4x+31|');
writeln('2.cos(3x-Г°y/2)^5');
writeln('3.tg(4y/Г°)');
writeln('4.x^3/2-2y+1');
read(n);
if n=1 then
begin
writeln('ââåäèòå x:');
read(x);
z:=-x^3+4*x+31;
w:=abs(z);
writeln('w=',w);
end;
if n=2  then
begin
writeln('ââåäèòå x:');
readln(x);
writeln('ââåäèòå y:');
readln(y);
a:= cos(3*x-Г°*y/2)^5;
writeln('a=',a);
end;
if n=3    then
begin
writeln('ââåäèòå p:');
readln(p);
writeln('ââåäèòå y:');
readln(y);
b:= arctan(4*y/Г°);
writeln('b=',b);
end;
if n=4   then
begin
writeln('ââåäèòå x:');
readln(x);
writeln('ââåäèòå y:');
readln(y);
c:= x^3/2-2*y+1;
writeln('c=',c);
end;
end.