Все тот же дек Опции

[Dao]

Я понимаю, что достал уже всех с деком, но сам че-то разобраться не могу. Так что поможите люди добрые. Условие задачи:

Из элементов стека и очереди составить дек.

Очередь и стек я сформировал, а вот дальше...

Type
   point=^item;
   item=record
            elem: Char;
            next: point;
         end;
Var
   topS, topQ, endQ: point;
   n: Integer;
   c, d, a: Char;

{Формирование первого элемента стэка}

Procedure FormStack (Var topS: point; c: Char);
Begin
   New (topS);
   topS^.next:=Nil;
   topS^.elem:=c;
End;

{Добавление элементов в стэк}

Procedure DobStack (Var topS: point; c: Char);
Var
   s: point;
Begin
   New (s);
   s^.next:=topS;
   topS:=s;
   s^.elem:=c;
End;

{Формирование первого элемента очереди}

Procedure FormQueue (Var topQ, endQ: point; d: Char);
Begin
   New (topQ);
   topQ^.next:=Nil;
   topQ^.elem:=d;
   endQ:=topQ;
End;

{Добавление элементов в очередь}

Procedure DobQueue (Var endQ: point; d: Char);
Var
   q: point;
Begin
   New (q);
   q^.next:=Nil;
   endQ^.next:=q;
   endQ:=q;
   endQ^.elem:=d;
End;

{Основная программа}

Begin
   Repeat
      n:=1;
      Writeln ('');
      Write ('Введите ',n,' элемент стэка: ');
      Readln( c );
      FormStack (topS, c);
      Repeat
         n:=n+1;
         Write ('Введите ',n,' элемент стэка: ');
         Readln (c);
         DobStack (topS, c);
      Until c='.';

      n:=1;
      Write ('Введите ',n,' элемент очереди: ');
      Readln (d);
      FormQueue (topQ, endQ, d);
      Repeat
         n:=n+1;
         Write ('Введите ',n,' элемент очереди: ');
         Readln (d);
         DobQueue (endQ, d);
      Until d='.';

      Writeln ('');
      Writeln ('Повторить?(y/n)');
      Readln (a);
   Until a<>'y';
End.