паскаль абс выдает ошибку Встречено ';', а ожидалось ')'

Program Lab1_variant5;
Var x,y: real;
Begin
writeln;
wtiteln(' Автор - Крупина А. И. , студентка гр. ББИ-11');
writeln(' Вариант №5);
writeln(' Программа вводит значение аргумента X и вычисляет значение функции Y);
writeln(' |1+(|cos(x)|)^0.5 x>1);
writeln('Y= |x+1 -0.5<=x<=1);
writeln(' |1-x^2 x,-0.5);
writeln;
writeln('введите x= ');
readln(x);
If x>1 then
Y:=1+(|cos(x)|)^0.5
Else
If x>=-0.5 then
y:=x+1
Else
Y:=1-x*x;
writeln('y= ', y:7:3);
readln
end.

writeln(' |1-x^2 x,-0.5);
WRITELN Встречено ';', а ожидалось ')' ;
writeln('введите x= ');