Решить систему уравнений в паскале . 3x x< -1 y= sinx-cosx -11

Var x,y :real;
begin
  write('Введите значение x=');
  readln(x);
  if (x>-3) and (x<5) then
   begin
    if x<-1 then y:=3*x
           else if x<1 then y:=sin(x)-cos(x)
                       else y:=x*x+1/2*x-7;
    writeln('При x=',x,'  y=',y)
    end
    else writeln('При x=',x,' функция не определена')
end.