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

const N = 10; var i, max: integer; a: array[1..N] of integer; begin   max := 1;   writeln('Массив до: ');   for i := 1 to N do begin     a[i] := random(10);     write(a[i]:3);     if(a[i] > a[max]) then max := i;   end;   writeln(#10, 'Массив после: ');   for i := 1 to N do begin     if(a[i] > 1) and (a[i] < 4) then a[i] := a[max];     write(a[i]:3);   end;   writeln(#10, 'Максиммальный элемент: ', a[max], #10, 'Его индекс: ', max);   end.