var a: array[1..n] of integer;
    b: bool;
...
b := true; s := 0;
for i:=1 to n do begin
 if odd(a[i]) and b then begin
  b := false;
  o := i;
 end;
 inc(s, a[i]);
end;
s := round(s/n); // уже непомню в паскале функции округления, но помоему round() там есть :\
if o < n then a[o+1] := s;