[Snake22]

хмм добавь целотипную переменную,счётчик (например i),и увеличивай ее в цикле,и када она дойдет додесяти,то выполняй условие-складывай и дели.вроде так =)

Код:

var i,ii:integer; ss:double; //
Begin
ii:=0;
i:=0;
while bb do
 begin
  ....твой код...;
  //и условие:
 if i=9 then //НЕ 10 потому что начинается с нуля
   begin
   ss:=(ss+bb[ii])/10;
   i:=0;//обнуляем счетчик
   end
   else inc(i); //увеличиваем счетчик в цикле
 inc(ii);//общий счетчик
end;