СИСТЕМА УРАВНЕНИЙ PASCAL.ABC

[НиколайКоперник]

Помогите решить в паскале.abc
Я сам так сделал, не понимаю что не так

function u (x,y : real) : real;
begin{операторская скобка начала программы}
   if (x<=-1) and sin(y)<>0 then u := (Abs(x)-Sqr(x)-3)/(2*sin(y)) 
   else writeln('Нет решений системы'){Система не имеет решений, если хотя бы
   одно уравнение не имеет решений};
   if (x<2) and (x<>1) then u := (Sqr(x)-1.5*y+cos(x))/(x-1)
   else writeln('Нет решений системы'){Система не имеет решений, если хотя бы
   одно уравнение не имеет решений};
   if (x>=2) then u := ((Sqrt(Abs(x-2))+sin(Sqr(x)-8))
   else writeln('Нет решений системы'){Система не имеет решений, если хотя бы
   одно уравнение не имеет решений};
end.