if x > 0 then result := 1 else if x = 0 then result := 0 else result := -1;