Дан целочисленный вектор А(N). Все нечетные числа, стоящие за максимальным элементом, умножить на первый четный элемент

const
  n_max = 100;
 
var
  a: array [1..n_max] of integer;
  ichet, i, imax, n: integer;
 
begin
  write('Введите количество элементов массива: ');
  readln(n);
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random(n);
    write(a[i]:4);
  end;
  
  imax := 1; 
  for i := 1 to n do
    if (a[i] > a[imax]) then
      imax := i;
  writeln;
  writeln('Индекс первого максимального: ', imax);
  
  ichet := 0;
  for i := 1 to n do
    if not odd(a[i]) then
    begin
      ichet := i;
      break;
    end;
  writeln('Индекс первого четного: ', ichet);
  
  if ichet <> 0 then
  begin
    for i := imax + 1 to n do
      if odd(a[i]) then
        a[i] := a[i] * a[ichet];
    writeln('Преобразованный массив:');
    for i := 1 to n do write(a[i]:4);
  end
  else
    writeln('Нет такого!');
end.