Вычисление значения функции. Ошибка в решении.

Program ss;
var x,k:integer; //вводимые переменные
y:real;   //выводимые :)
Procedure F(x,k:integer; var y:real); //процедура для нахождения значений
begin
if k=1 then y:=exp(-x) else     //если k=1 тогда вычисляем первое иначе
if k=3 then y:=ln(abs(x+5)) else  //если k=3 тогда вычисляем второе иначе
if k=5 then y:=sin(sqr(x)+5) else //если k=5 тогда вычисляем третье иначе
if k mod 2 = 0 then y:=cos(x-pi/3) else //если k четное тогда вычисляем четвертое иначе
if (k mod 2 = 1) and (k>6) then y:=sqr(x)+2*x+3; //если k нечетное и больше 6 тогда вычисляем последнее.
end;
begin
writeln('Введите X,K');
readln(X,K);  //ввод X,K
f(x,k,y);    //вызов процедуры для вычисления
writeln(y); //вывод ответа
end.