Переменная и ее чтение с заменой значений(вопрос)

[ScythLab]

До конца в сакральный смыл вникать нет желания, но задачу можно решить кучей способов, выбери подходящий для себя и доработай.

  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));