recpt1: A_lya_STRUCTURA; (* retain *)
recpt2: A_lya_STRUCTURA; (* retain *)
recpt3: A_lya_STRUCTURA; (* retain *)
currRecpt : A_lya_STRUCTURA;
case vybor of
0: currRecpt:=recpt1;
1: currRecpt:=recpt2;
2: currRecpt:=recpt3;
END_CASE

SP:= currRecpt.SP; (* к примеру уставка из первого рецепта *)