[pax]

Вот две функции возвращающие знак числа:

Function ISgn(Val:Integer):Integer;
Begin
	if val=0 then ISgn:=1 else
 ISgn:=Val/Abs(Val);
End;

Function RSgn(Val:Real):Real;
Begin
	if val=0 then RSgn:=1 else
 RSgn:=Val/RAbs(Val);
End;