Помогите с одномерными массивами!

Дан массив целых чисел.

а) все отрицательные элементы увеличьте на 10

б) выяснить, верно ли, что средних арифметических элементов больших 20, превышает 50.

Var a:array [1 ... 100] of integer;

i, k, p, n:integer;

begin

p:=0; k:=0;

read (n) ; {количество элементов массива}

for i:=1 to n do

read (a[i]) ;

for i:=1 to n do

begin

if a[i]<0 then a[i]:=a[i]+10; {а}

if a[i]>20 then begin p:=p+a[i]; k:=k+1; end; {б}

end;

if p div k > 50 then writeln ('yes') ; {б}

for i:=1 to n dowrite (a[i], ' ') ;

end.