Есть вопрос: Паскаль ругается и выдает ошибку в программе что делать

var

a,b,x,y,w,z,p: extended;

begin

writeln('Vvedite znacheniya peremennikh a,b,x');

read(a,b,x);

writeln('Ishodnie dannie:');

writeln('a=',a:5:2,'b=',b:5:2,'x=',x:6:3);

w:=p*b*cos(x);

if w<0 then

writeln('argument kornya<0')

else

begin

z:=a*sin^2(x)+sqrt(w);

if x>4,2 then

y:=(a*x+1)^2+b*x^2

else y:=sqr(a)*sqr(x)+2*a*x+z;

writeln('y=',y:8:3);

end;

writeln(Programma vipolnena. Nazhmite ENTER');readln

end.