[stil]

Код:

for i:=1 to length(mo) do begin
  j:=(i div 50) + 2;
  Sheet.Cells[j,2].value:=Sheet.Cells[j,2].value+mo[i];
end;