помогите решить задачу на паскале пожайлуста
Организовать ручное заполнение целочисленного одномерного массива. Заменить все максимальные элементы массива на произведение максимального элемента и его индекса. Вывести максимальный элемент массива, а также сам массив до и после изменения.

Ответ:

program znanijacom;

const

  n = 5;

type

  mas = array[1..n] of integer;

var

  a: mas;

  i: integer;

  max: integer;

begin

  writeln('введите элементы массива');

  for i:=1 to n do readln(a[i]);

  writeln('вывод элементов массива:');

  for i:=1 to n do write(a[i]:3);

  max := a[1];

  for i:=1 to n do if a[i] > max then max := a[i];

  writeln(' максимальный элемент: ', max);

  writeln('массив после изменений: ');

  for i:=1 to n do begin

   if a[i] = max then a[i] := a[i]*i;

   write(a[i]:3);

   end;

end.

Объяснение: