Все элементы массива с четными номерами, предшествующие первому max, умножить на значение максимума

Programx1;
var
a : array [1..1000] of integer;
i,imax,n : integer;
begin
write('введиетколичествоэлементовмассива n=');
readln(n);
for i:=1 to n do
begin
a[i] := random (20)-10;
write(a[i],'|');
end;
imax:=a[1];
for i:=1 to n do
if (a[i]>imax) then
imax:=a[i];
writeln;
writeln('imax=', imax);
for i:=2 to n do
begin
if (i mod 2 = 0 ) then
begin
a[i]:=a[i]*imax;
writeln('a[i]=',a[i]);
end;
end;
end.

program p;// исправлено
 
var
  a: array [1..1000] of integer;
  i, imax, n: integer;
 
begin
  write('введиет количество элементов массива n=');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(20) - 10;
    write(a[i], ' | ');
  end;
  imax := 1; // ищем индекс первого максимального элемента
  for i := 1 to n do
    if (a[i] > a[imax]) then
      imax := i;
  writeln;
  writeln('Индекс первого максимального imax=', imax);
  for i := 2 to imax do
    if (i mod 2 = 0 ) then
      a[i] := a[i] * a[imax];
  // выводим весь массив
  writeln('Преобразованный массив:');
  for i:=1 to n do write(a[i],' | ');
end.