Mathematica maximize element extraction from list

[parzio]

Hi guys,

I think this is a simple question for mathematica experts.
How can I maximize the extracted value from a list given a index that has to respect some constrains?

For example:

S = {4,2,3,5}

Maximize[{Extract[S,x], x<= 3, x>=1},{x}]

I would like 4 is returned instead of this error:
Extract::psl: "Position specification x in Extract[{4,2,3,5},x] is not an integer or a list of integers."

Does someone know like solve this?

Thanks a lot.

 

[Bill Simpson]

In[1]:= S={4,2,3,5};Max[Take[S,{1,3}]]

Out[2]= 4