const
 n = 10;
 a: array[1 .. n] of real =
   (2, 4, 8, 1, -1, 3, 7, 5, 3, 8);

var
 size, i: integer;
 s: real;
 was_found: boolean;
begin
 was_found := false;
 size := n;
 for i := 1 to size do
   begin
     s := s + a[i];
     was_found := was_found or
       ((i in [1 .. 5]) and (a[i] < 0))
   end;

 if was_found then
   begin
     dec(size, 4); a[size] := s / n;
   end;

 { в size хранится "реальный" размер массива }
end.