Работа с окнами - Prolog (226795)

Формулировка задачи:

Подскажите пожалуйста. Как перенести значение переменной А из одного окна в другое.

                    Листинг программы
                
 
                        
                          
                    
/*Данные для объявления*/
predicates
 win
goal
 win.
clauses 
 win:-makewindow(1,7,7,"Окно для ввода информации",1,1,19,55),
  cursor(1,3),write("Сколько лет мужчине? "),readint(A),
  cursor(3,3),write("Какой рост мужчины? "),readint(B),write (B),nl,
  cursor(5,3),write("Где он работает? "), readln(C),write(C), nl,
  cursor(7,3),write("Первоначальный возраст женщины? "),readint(D),write (D),nl,
  cursor(9,3),write("Желательный возраст женщины? "),readint(E),write (E),nl,
  cursor(11,3),write("Какая фигура у женщины? "),readchar(F),write (F),nl,
  cursor(13,3),write("Какое животное противно мужчине? "),readln(G),write(G),nl,
  cursor(15,3),write("Для закрытия окна нажмите любую клавишу"),readchar(_),
  clearwindow. 
 win:-makewindow(2,7,7,"О Б Ъ Я В Л Е Н И Е",1,1,19,55),
  cursor(3,20),write("....................."),
  cursor(5,5),write(A),
  cursor(15,3),write("Для закрытия окна нажмите любую клавишу"),readchar(_).
  removewindow.

Решение задачи: «Работа с окнами»

textual
                            Листинг программы 
                        
    assert(woman(A,B,C,D)),