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

[Kolyancz]

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

[Kolyancz]

Да, все правильно. Вот полное решение, всем спасибо.

Код

var J,i,n,max: integer;
    a :array[1..1000] of integer;
     b:array[1..1000] of integer;
begin
n:=0;
while not eoln do begin
  inc(n); read(a[n]);
end;
   begin
   max := a[1];
  j := 0;
  for i := 1 to n do begin
    if a[i] = max then begin
      inc(j); b[j] := i;
    end
    else
      if a[i] > max then begin
        max := a[i];
        j := 1; b[j] := i;
      end;
  end;
    writeln(max);
  for i := 1 to j do
    write(b[i]:5);

readln;
readln
end;
end.