Задача на стек и дек. Опции

[Krjuger]

В общем задача заключается в том что надо из текстового файла заполнить дек и взять последние "Б" элементов и записать их в стек.Суть вопроса заключается в том какую реализацию выбрать.первый скособ это создать процедуру котора берет элемент из дека и пишет в стек,а вторая уже выполняет первую до выполнения условия(достижение Б),либо сделать лиш одну процедуру,которая делает все сразу.

TElem = integer; 
TStack = ^TElement;
 TElement = record
             info:TElem;
             Next:TStack;
        end;
  TData = integer;
  PTDeqItem = ^TDeqItem;
  TDeqItem = record
      Data: TData;
      next, prev: PTDeqItem;
    End;

  TDeq =  Record
      pStart, pFinish: PTDeqItem;
    End;
 

Вот описание стека и дека.Вопрос в том можно ли создать лиш одну буферную переменную или делать через две.каждого типа.

[Krjuger]

При этом,если сделать в процедуре

Procedure AddSheet(Var Root: TTree; tmp: TInf);{размещение нового элемента (листа) в структуре}
Begin
   If Root<>Nil then
    begin
      if Root^.inf.stat='father' then
       begin
         If Root^.Left=Nil then
          Root^.Left:=NewSheet(tmp)
         else
          begin
            If SignKey(tmp) then
             AddSheet(Root^.right,tmp){я поменял право и лево тут}
            else
             AddSheet(Root^.left,tmp);{и тут}
          end;
       end
      else
       begin
         If Root^.Right=Nil then
          Root^.Right:=NewSheet(tmp)
         else
          begin
           If SignKey(tmp) then
           AddSheet(Root^.Left,tmp)
            else
           AddSheet(Root^.Right,tmp);
          end;
       end;
    end
   else
    begin {дерево не создано, создаем его}
      Root:=NewSheet(tmp);
    end;
End;

и стало выводиться

Код

boris
  kor
      bob
      rita
  maria
      ksenia
      bob

Что уже больше похоже на правду.поэтому либо я не совсем понимаю вывод дерева.либо я хз как эту ошибку исправить.

Код

boris
  kor
      bob
      rita
  maria
      bob
      ksenia

Вот на мой взгляд правильный вывод,каким должен быть,либо Volvo поясти,может я чтото не понимаю.