Code:
Local NumberVar n:=DistinctCount ({UplateKompenzatora.Vrednost_uplate});
Local NumberVar Array b;
Redim b[n];
Local NumberVar i;
For i := 1 To n Do
(
   b[i] := b[i]+b[i]
);
b[i];