Дан массив целых чисел. Найти: 3. Номера всех элементов с максимальным значением -Pascal(Паскаль)

var
a:array[1..100]of integer; {объявили массив с заведомо большим количеством элементов-100}
n,i,max:integer;
begin
writeln('vvedite kol-vo elementov');{вводим количество элементов}
readln(n);
for i:=1 to n do
begin
writeln('vvedite element'); {заполняем массив с клавиатуры, вводя элементы}
readln(a[i]);
end;
writeln('massiv');{распечатываем введённый массив в строчку}
for i:=1 to n do
write(a[i],' ');
max:=a[1];{условно считаем, что наибольший элемент - первый}
for i:=1 to n do      {проходим по массиву, если находим элемент, больший, чем максимальный,} 
if a[i]>max then max:=a[i];   {то максимальным становится этот элемент}
for i:=1 to n do   {проходим по массиву и ищем элементы=max}
if a[i]=max then write(i,' ');  {если нашли, выводим номер}
readln;
end.