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