в приклепленном файле задания

а вот что получилjсь:
program function;
users crt;
var x,a,y,k1,k2:real;
begin
clrscr;
x:=0.844;
a:=0.83756;
y:=a*(1-exp(-0.2));
if (0<x) and (x<2) then
k1:=y*arctan(1-sqr(x));
writeln ('k1=');
else
if x>=2 and x<=(-y) then
k2:=ln(abs(1-x/y);
writeln ('k2=');
else
writeln ('нет решения');
readln;
end.
Подскажите в чем ошибка?

заданиеНажмите для просмотра прикрепленного файла Нажмите для просмотра прикрепленного файла