хмм добавь целотипную переменную,счётчик (например 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;