Выдаёт "не число"

[yabusic]

Доброго времени суток!
В результате работы программы выдаёт "не число", что я делаю неправильно?
Код:

var a,b,x,y,z:real;
function f(u,t:real):real;
begin
if u>=0 then f:=u+2*t;
if u<=-1 then f:=u+t else f:=sqr(u)-2*t+1;
end;
begin
x:=-14.2;
y:=0.32;
a:=7.2;
b:=4.7;
z:=f(sqrt(x),y)+f(a,b)+f(x+1,-y)+f(x-y,x)+f(x+y,a+b);
writeln(z);
end.

[type_Oleg]

А чему равен клубень из -14.2 ?

x:=-14.2;
// ..
z:=f(sqrt(x),y)+f(a,b)+f(x+1,-y)+f(x-y,x)+f(x+y,a+b);

[Вадим Мошев]

Вы извлекаете корень квадратный из отрицательного числа

x:=-14.2;

z:=f(sqrt(x),y)+f(a,b)+f(x+1,-y)+f(x-y,x)+f(x+y,a+b);