не роботает правильно простая програма на Паскале, помогите!!!

Program Rozgaluzhenna;
var x: integer;
y: real;
begin
Writeln('Введіть значення х');
Readln(x);
if x<0 then
y:=(3*x+2)/(x-8)
else
begin
if (x<=1) and (x>=0) then
y:=power(sin(x),2)+3.18*power(x,-2)/(x+3*cos(x))
else
y:=power(x,3)+3*power(x,-4)+power((x-4),0.5);
end;
writeln('y=',x);
end.

Запускаю програму, x всегда ровно y, что вожу, то и выводит, где ошыбка?
Регистрируйтесь, делитесь ссылками в соцсетях, получайте на WMR кошелек 20% с каждого денежного зачисления пользователей, пришедших на проект по Вашей ссылке. Подробнее
После регистрации Вы также сможете получать до 75 руб за каждую тысячу уникальных поисковых переходов на Ваш вопрос или ответ Подробнее
ЛУЧШИЙ ОТВЕТ
Магистр (1010)
writeln('y=',x);

так ты х и выводишь.

замени на writeln('y=',у);