Access elements of a result from the Solve function.

Questions
,
1

If I do this:

S = Solve[x^3 - 2*x^2 + 1 == 0, x]

I get this returned:

{{x -> 1}, {x -> 1/2 (1 - Sqrt[5])}, {x -> 1/2 (1 + Sqrt[5])}}

But I want to be able to take, say, the third expression and assign it to a function called y like:

y=1/2 (1 + Sqrt[5])

But without copy-paste because the actual expression I need to deal with is lengthy and ugly.
So I tried S[[3]] and that got be something that looks closer, but is still not right. How do I do it?

2 
In[1]:= s = Solve[x^3 - 2*x^2 + 1 == 0, x]

Out[1]= {{x -> 1}, {x -> 1/2 (1 - Sqrt[5])}, {x -> 1/2 (1 + Sqrt[5])}}

In[2]:= y = x /. s[[3]]

Out[2]= 1/2 (1 + Sqrt[5])

In[3]:= y

Out[3]= 1/2 (1 + Sqrt[5])
3

Please see this article covering the topic:

http://support.wolfram.com/kb/3825