Работа с окнами - 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.