Номера максимальных элементов в одномерном массиве

Program index_max_elem;
const n=5;
var a :array [1..30] of integer;
i: integer;
imax: integer;
begin
writeln ('Введите ', n, ' элементов массива');
for i:=1 to n do read(a[i]);
imax:=a[1];
for i:=2 to n do
if a[i] >a[imax] then imax:=1;
writeln('Номер максимального элемента: ' , imax);
writeln('Максимальный элемент: ', a[imax])
end.

Program index_max_elem;
var a :array [1..30] of integer;
i: integer;
imax,id,n : integer;
begin
Read (n);
writeln ('Ââåäèòå ', n, ' ýëåìåíòîâ ìàññèâà');
for i:=1 to n do read(a[i]);
imax:=a[1];
for i:=2 to n do
if a[i] > a[imax] then
  begin
   imax:=a[i];
   id:=i;
  end;
writeln('Ìàêñèìàëüíûé ýëåìåíò: ', imax);
writeln('Íîìåðà ìàêñèìàëüíûõ ýëåìåíòîâ: ');
Write (id);
For i:=1 to n do
 If (imax = a[i]) and (id <> i) then
  Write (', ',i);
end.

Program index_max_elem;
uses crt;
var a :array [1..30] of integer;
i: integer;
imax,id,n : integer;
begin
Read (n);
writeln ('Введите ', n, ' элементов массива');
for i:=1 to n do read(a[i]);
imax:=a[1];
for i:=2 to n do
if a[i] > imax then
  begin
   imax:=a[i];
   id:=i;
  end;
writeln('Максимальный элемент: ', imax);
writeln('Номера максимальных элементов: ');
Write (id);
For i:=1 to n do
 If (imax = a[i]) and (id <> i) then
  Write (', ',i);
end.

{ Номера максимальных элементов в одномерном массиве }
{ Без использования дополнительной памяти, 2 прохода }
Program index_max_elem;
{ const n=5; }
var a :array [1..30] of integer;
  i: integer;
  { imax: integer; }
  {}
  n: integer;
  max: integer; 
  {}
begin
 
  {}
  write ('Введите число  элементов массива ');
  readln(n);
  {}  
  writeln ('Введите ', n, ' элементов массива');
  for i:=1 to n do read(a[i]);
 
  { imax:=a[1]; }
  max:=a[1];
  for i:=2 to n do
    { if a[i] >a[imax] then imax:=1; }
    if (a[i] > max) then max:=a[i];
  { writeln('Номер максимального элемента: ' , imax); }
  write('Номера элементов, равных максимальному : ');
  for i:=1 to n do
    if a[i] = max then write(i:3);
  writeln;
  writeln('Максимальный элемент: ', max);
end.