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

[лёшик]

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

[лёшик]

то есть, вводим логическую переменную napr (направление), которая будет переключать режим цикла между увеличением и уменьшением переменной "а"? Ок, пасибки, ща попробуем прописать))) А выражение if...then...else
допускает внутри себя повторение? If...then.....if.....else - ?

Добавлено через 11 мин.
a какие параметры у функций "inc" и "dec"? Не встречал их в учебниках

[sheka]

это тоже самое - просто поставил бегин-енд для наглядности.

Код

  if (napr=true)then
    begin
      if(a<alim)then inc(a)
      else napr:=false;
    end
  else
    begin
      if(a>0)then dec(a)
      else napr:=true;
    end;