[andy]

FOR i:= Tablica[1] TO Tablica[40] DO
   Begin
      Tablica[i]:= i + 1;
   End;

Dzi***281;ki temu zape***322;nisz tablice

Tablice deklarujesz tak

VAR
   Tablica: Array [1..40] of byte;

Polecam lektur***281; tego - http://4programmers.net/Delphi/Kompendium