Полное Решение пожалуйста!! Задан массив из 7 целых чисел. Заменить все положител??ные элементы данного массива на его максимальный элемент?

Const n = 7;var a:array[1..n]of integer;  max,i:integer;begin  //Заполнение массива значениями в диапазоне  //от -100 до 100  //и одновременно находим максимальный элемент  max:=-100;  for i:=1 to n do begin    a[i]:=random(201)-100;    if a[i]> max then max:=a[i];    write(a[i]:3);  end;  writeln;  //В цикле находим положительные и   //меняем их на максимальный элемент  for i:=1 to n do begin    if a[i]>0 then a[i]:=max;    write(a[i]:3);  end;  writeln; end.