One can also play a bit with Transpose

In[1]:= Clear[maxList]
maxList = {{{1, 1}}, {{2, 6}}, {{3, 11}}, {{4, 16}}, {{5, 21}}, {{6, 26}}, {{7, 31}}, {{8, 36}}, {{9, 41}}, {{10, 46}}};

In[13]:= Transpose[maxList, {2, 1, 3}]
Out[13]= {{{1, 1}, {2, 6}, {3, 11}, {4, 16}, {5, 21}, {6, 26}, {7, 31}, {8, 36}, {9, 41}, {10, 46}}}

In[14]:= Transpose[maxList, {2, 3, 1}]
Out[14]= {{{1}, {2}, {3}, {4}, {5}, {6}, {7}, {8}, {9}, {10}}, {{1}, {6}, {11}, {16}, {21}, {26}, {31}, {36}, {41}, {46}}}

In[15]:= Transpose[maxList, {3, 2, 1}]
Out[15]= {{{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}}, {{1, 6, 11, 16, 21, 26, 31, 36, 41, 46}}}

so it is

In[16]:= Transpose[maxList, {3, 2, 1}][[-1, 1]]
Out[16]= {1, 6, 11, 16, 21, 26, 31, 36, 41, 46}

Understanding lists and list operations are VERY important in Mathematica. Here's a way to do what you're looking for, but I challenge you to learn why this works:

In[72]:= maxList= {{{1, 1}}, {{2, 6}}, {{3, 11}}, {{4, 16}}, {{5, 
     21}}, {{6, 26}}, {{7, 31}}, {{8, 36}}, {{9, 41}}, {{10, 46}}};
Last /@ Flatten[maxList, 1]

Out[73]= {1, 6, 11, 16, 21, 26, 31, 36, 41, 46}

Have fun!

Excellent, your full code helps a lot. The problem is with how you are using Take. I prefer using [[.. ]] rather than take, but we can make either of them work. First, using take:

In[17]:= Take[prob, {#}] & /@ Range[10]

Out[17]= {{1.}, {0.184925}, {0.139819}, {0.122347}, {0.114559},  {0.112275}, {0.114559}, {0.122347}, {0.139819}, {0.184925}}

Note that we now have a list of lists. So if we use this directly in Position, it will be looking for {1.} instead of 1., which I assume is not what you want. To make this work correctly, you'll want to extract the number from the list using First:

Position[distribution, First@Take[prob, {#}]] & /@ Range[10]

But let's use the [[..]] notation because I like it.

In[21]:= maxList = Position[distribution, prob[[#]]] & /@ Range[10]

Out[21]= {{{1, 1}}, {{2, 6}}, {{3, 11}}, {{4, 16}}, {{5, 21}}, {{6, 26}}, {{7, 31}}, {{8, 36}}, {{9, 41}}, {{10, 46}}}

In[22]:= Last[Last[maxList]]

Out[22]= {10, 46}

And that, I hope, is the result that you were looking for. Is it?

Your maxList has the same error as my max

Yes i tried to do that im creating a TableForm with the results however I want to make a list of them in maxList but it says that Last is empty and I have no idea why

Take::normal: "Nonatomic expression expected at position 1 in Take[prob,{{#1}&,2 ({#1}&),3 ({#1}&),4 ({#1}&),5 ({#1}&),6 ({#1}&),7 ({#1}&),8 ({#1}&),9 ({#1}&),10 ({#1}&)}]. \!(*ButtonBox[\">>\", Appearance->{Automatic, None}, BaseStyle->\"Link\", ButtonData:>\"paclet:ref/message/General/normal\", ButtonNote->\"Take::normal\"])"

I got that error