Delphi - массивы

[Shadow_rus]

program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
ta=array[1..30] of integer;
var
a:ta;
i,n,max,Imax:Integer;

begin
Writeln('input N');
readln (n);
writeln('input array');
for i:=1 to n do
read(a[i]);
max:=a[1];
imax:=1;
for i:=1 to n do
if a[i]>max then
begin
max:=a[i];
Imax:=i;
end;
Writeln('nom=',Imax);
readln;
readln;
end.

программа несложная написать я ее всетаки написал, проблема в том что я не знаю как заставить ее считать ВСЕ номера максимумов и не останавливаться на первом же найденном. напишите плиз кусочек программного кода и желательно с комментариями, чтобы впредь не нарываться...

[Скандербег]

  max := 0; //минимально возможное число, а не max:=a[1];, т.к. первый элемент массива 
//может быть максимальным значением и тогда условие a[i] > max никогда не выполнится
  imax := 1; //бесполезная переменная
  for i := 1 to n do
    if a[i] > max then //нахождение элемента с максимальным значением
      max := a[i];

  for i := 1 to n do //печатаем индексы всех элементов с макс. значением, выясняя, есть ли и другие элементы с таким же значением
    if a[i] = max then
      Writeln('nom=',I);

  readln;

[Shadow_rus]

Огромное вам спасибо.