volvoВашу программу я тоже скачал, но там только модуль. А сами процедуры у меня есть для работы с деком. Камнем преткновения для меня является - это связать процедуры с интерфейсом и вообще я не знал, что  должно отображаться в интерфейсе для дека, вот поэтому я и скачал эту прогу.
 Попытался сделать, чтобы меню в этой программе оставалось всё время на одном месте, я сделал так : 
Код
repeat
                                [b]clrscr;[/b]    
  showmenu;
  readln(selection);    
  case selection of
      1: pushbegin(root,tail,getelem);
      2: popbegin(root,tail);
      3: pushend(root,tail,getelem);
      4: popend(root,tail);
      5: clrscr;
  end;
    until selection=5;
Казалось бы всё ок, но вот когда пытаешься извлечь элемент из дека, то он не отображается на экране. В чём моя ошибка?