Простой алгоритм Опции

[лёшик]

Народ, прошу помощи, подскажите алгоритм для присваивания возрастающего значения числовой
переменной ( a:=a+1) и при достижении заданного значения aLim уменьшения значения до нуля (a:=a-1),
чтобы в итоге текущее значение циклически колебалось в этих пределах. Цикл задан методом OnTimer.
Заранее спасибо! Понимаю, что листинг такого алгоритма крайне несложен, но для чайника задачка пока что
непосильная))))

[sheka]

если правильно понял, то

Код

napr:=true;

procedure ontimer;
  ..
  if (napr=true)then
    if(a<alim)then inc(a)
    else napr:=false
  else
    if(a>0)then dec(a)
    else napr:=true;