Matematyka.pl

Mam za zadanie napisać program, który wyświetla maksimum z zadanej listy. Bez używania max[]. Moja próba: maksimum[u_] := Module[{a = u, maks = u[[0]]}, For[i = 0, i < Length[a], i++, If[a[[i]] > m, maks = a[[i]]]]; Print[maks]]; In: maksimum[{-5, 2, 1}] Out: List Czemu zwraca mi jakąś listę?