Задан массив из 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;

Спасибо большое