В одномерном массиве, состоящем из n вещественных элементов, заменить каждый элемент > 0, значением среднего арифметического элементов массива. Pascal ABC. Без "randomize".

program z;const n=5;var a:array[1..n] of real;i:integer; s:real;begins:=0;for i:=1 to n dobeginreadln(a[i]);s:=s+a[i];end;s:=s/n;for i:=1 to n doif a[i]>0 then a[i]:=s;for i:=1 to n dowrite(a[i],' ');end.