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

Max:=-32768;
for i:=1 to 7 do
if a[i] > max then
max:=a[i];
for i:=1 to 7 do
if a[i]>o then 
a[i]:=max;