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

Program Mass_1;
USES CRT;
CONST nmax=20;
Var
A : array [1..nmax] of integer;
i,u,n,indx : byte;
max,buf : integer;
BEGIN
clrscr;
Randomize;
Repeat
Write('Задайте длину массива А : ');ReadLn(n);
Until ((n>1) and (n<nmax));
max:=Low(Integer);
For i:=1 to n do
  Begin
    A[i]:=random(9)+1;
    if A[i]>max then
      begin
        max:=A[i];
        indx:=i;
      end;
  End;
WriteLn('Создаём массив :');
For u:=1 to n do Write('-----');
WriteLn;
For u:=1 to n do write(u:3,' |');
WriteLn;
For u:=1 to n do Write('----+');
WriteLn;
For i:=1 to n do
  Begin
    Write(A[i]:3,' |');
  End;
WriteLn;
For u:=1 to n do Write('----+');
WriteLn;
WriteLn;
WriteLn('Наибольшее значение = ',max);
WriteLn('Индекс наибольшего значения = ',indx);
WriteLn;
WriteLn('Массив с умноженными значениями : ');
For u:=1 to n do Write('-----');
WriteLn;
For u:=1 to n do write(u:3,' |');
WriteLn;
For u:=1 to n do Write('----+');
WriteLn;
For i:=1 to n do
  Begin
    If i=indx then
      begin
        textcolor(14);
        Write(max:3);
        textcolor(7);
        Write(' |');
      End
    else If (i<indx) and (not odd(i)) then
      begin
        textcolor(13);
        Write(A[i] * max:3);
        textcolor(7);
        Write(' |');
      End
    else
    write(A[i]:3,' |');
  End;
WriteLn;
For u:=1 to n do Write('----+');
WriteLn;
ReadLn;
END.