В чём ошибка? Нестандартные и ограниченные типы данных. Множества. Оператор варианта - Pascal ABC

Program lab3;
type arg=-10..15;
var x:arg;z:real;
 begin
     for x:=-10 to 15 do begin
     case x of
     -2..5: z:=(ln(abs(x-5)))+(exp(1/3)*ln(5*x)) ;
     6..10:if x mod 2=0 then z:=(exp(-2.5)*(ln(x)))*(sin((2)*(x)+1))else if x mod 2<>0 then z:= (exp(2*(x)-1))+(cos(x));
     else z:=ln((2*x)+1);
  end;
writeln ('I"?e` x =',x:3,' z =',z:6:2);
end;
End.