До конца в сакральный смыл вникать нет желания, но задачу можно решить кучей способов, выбери подходящий для себя и доработай.
Код:
if (i = 100) then
begin
Inc(b);
i := 0;
end;
Write(...)
Код:
if (i = 100) then
Inc(b);
Write(...);
if (i = 100) then
i := 0;
Код:
WriteS('menu_select?ask='+IntTosTr(i div 100)+'&reply='+IntTosTr(i mod 100));