Thanks again. I think that I did this.
The explain of my question was: In the first of my implementation A:=[a*x^2+b*x*y-2, (a-1)*x^2-z^2, c*x*y+1] is a list of polynomials. I linearise it using A1 (instead of x^2), A2 (instead of x*y), A3 (instead of z^2) and A4 (instead of 1). So I have AA:=[A1*a+A2*b-2*A4, (a-1)*A1-A3, A2*c+A4]. In the middle of computation some linear polynomial add into AA. In the end of computation it is needed that A1 and A2 and A3 and A4 change to thier related monomials. By your function "map(rhs=lhs, S)" I can change A1, A2, A3. Could you please help me how can I change A4 to 1 simultaneously and automatically (using nops(map(rhs=lhs, S)))?