Const
  n = 8;

var
  a: array[1..n] of integer;
  i, t, im, max: integer;

begin
  Writeln('Введите через пробел ', n, ' чисел');
  max := -32768;
  for i := 1 to n do
  begin
    Read(t);
    a[i] := t; t := (i + 1) * t;
    if max < t then begin max := t; im := i end;
  end;
  Writeln('Максимальное значение ', max, ' достигается как ', im + 1, '*a[', im, ']')
end.

Тестовое решение:
Введите через пробел 8 чисел
4 -3 5 4 3 2 1 0
Максимальное значение 20 достигается как 4*a[3]