Наибольшее число в последовательности и его размещение Опции

[Kolyancz]

Задана последовательность N чисел. N<=1000. Найдите наибольшее число в этой последовательности и укажите на какой позиции оно находится. Если число повторяется, то указать все его позиции.
Например: для последовательности 569 3 567 94 569 219 546
Ответ:
569
1 5
Впорос: как выглядит функция определения наибольшего числа и расчета его размещений?

[Айра]

  if a[i] = max then begin
      inc(j); //а вот это что по твоему? как раз таки увеличение j на 1цу
b[j] := i;