Wybrane liczby z tablicy (PASCAL)

Witam mam pewien problem. Muszę napisać pewien program-już go prawie napisałem ale nie mogę sobie poradzić z jednym problemem.
Chodzi o to że muszę do odpowiedniego elementu tablicy dodać jakąś wartość.

Chodzi mi o coś takiego:

 
tablica[1]:=tablica[1]+2;
tablica[2]:=tablica[1]+4;
tablica[3]:=tablica[1]+1;
tablica[4]:=tablica[1]+2;
tablica[5]:=tablica[1]+4;
tablica[6]:=tablica[1]+1;
itd

Oczywiście nie mogę tak robić ponieważ tablica zawiera ok 100 elementów.

Jeszcze inny przykład o co mi chodzi:

 
a b c d e f g h  //elementy w tablicy
2 4 1 2 4 1 2 4  //to co muszę dodać

Wiem że typy zmiennych się nie zgadzają ale to tylko przykład

I tak ma się wykonywać do końca tablicy.

Mam nadzieję że wiecie o co chodzi i mi pomożecie ;)

Sorry że drugi post pod postem ale wkradł się błąd.

W tym przykładzie ma być tak:

 
tablica[1]:=tablica[1]+2;
tablica[2]:=tablica[2]+4;
tablica[3]:=tablica[3]+1;
tablica[4]:=tablica[4]+2;
tablica[5]:=tablica[5]+4;
tablica[6]:=tablica[6]+1;
itd

A nie tak jak w poście pierwszym

temat do przerobienia - pętla for

for i:= 1 to 100 do
  case (i-1) mod 3 of
    0: Inc(Tablica[i], 2);
    1: Inc(Tablica[i], 4);
    2: Inc(Tablica[i]);
  end;

To ja to skomplikuję ;)

 
for i:= Low(Tablica) to High(Tablica) do
// reszta jak wyżej

mea culpa

for i:= 1 to High(Tablica) do 

type
  TTab: array [0 .. 99] of Byte;

{...}

procedure AddModResult(var Tab: TTab);
const
  TModResult: array [0 .. 2] of 1 .. 4 = (2, 4, 1);
var
  I: Byte;
begin
  for I := Low(Tab) to High(Tab) do
    Inc(Tab[I], TModResult[I mod 3]);
end;

Krótsze, prostsze i szybsze rozwiązanie;