В одномерном массиве А(10) найти максимальный элемент, вывести его значение и индекс. заменить все четные элементы значением максимального элемента. полученный массив вывести на экран.

Vara : array[1..10] of integer;m, i, mi: integer;beginfor i := 1 to 10 doread(a[i])m:=-maxint;for i := 1 to 10 doif (a[i]>m) then beginm:=a[i];mi:=i;end; for i := 1 to 10 doif (a[i] mod 2 = 0) then a[i] := m;writeln(m,' ',mi);for i:= 1 to 10 dowrite(a[i],' ');readln;end.