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

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% с каждого денежного зачисления пользователей, пришедших на проект по Вашей ссылке. Подробнее
После регистрации Вы также сможете получать до 120 руб за каждую тысячу уникальных поисковых переходов на Ваш вопрос или ответ Подробнее
ЛУЧШИЙ ОТВЕТ
Магистр (1010)
writeln('y=',x);

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

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