generic
   type T is private;
procedure csere(A:in out T;B:in out T);