[Gudzik11]

Код:

  day:= DayOfWeek(Date);
    Case dey of
     1: Caption:='вс';
     2: Caption:='пн';
     3: Caption:='вт';
     4: Caption:='ср';
     5: Caption:='чт';
     6: Caption:='пт';
     7: Caption:='сб
  end;
  
   Label11.day;
   Label12.day+1;
 end;
 

';

может как то так

а где можно поподробней почитать про константный массив