В одномерном массиве А(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]     write(a[i]:3);
  end;
  writeln(#10, Максиммальный элемент: , a[max], #10, Его индекс: , max);  
end.