MaxNap:=1 Ciklus i=2-től Db-ig Ha Eladás[i]>Eladás[MaxNap] akkor MaxNap:=i Ciklus vége