Реализация очереди с элементами из списка

[Quadrelle]

Здравствуйте! Написал программу реализации двусвязного списка. Никак не получается реализовать очередь так, чтобы элементами очереди были элементы списка, т.е. надо завести новый тип Queue = record c элементами из списка Items:List; и написать процедуры push и pop и showQueue, такие, что в них будет вызов аналогичных процедур из списка. Так же это можно реализовать через модуль, но тоже без понятия как.

Что получилось:

Queue = record
Items: List;
end;
proc QueuePut(var q :Queue; e :ItemType);
begin
Push(q.Items,e); <-- процедура, которая используется в списке.
end;

Если через модули, то вот все знания:

uses List;
unit List;

Вот реализация списка, с которым надо связать очередь
Код Pascal

program List;
type
  TData = integer;
  ListLinkPtr = ^ListLink;
  ListLink=record
      Data: TData;
      next, prev: ListLinkPtr;
    end;
 
  TList=record
  head, tail: ListLinkPtr;
  end;
 
 
function IsEmpty(var List: TList): Boolean;
  begin
    IsEmpty := (List.head = nil);
  end;
 
procedure ShowList(var List: TList);
  Var p: ListLinkPtr;
  begin
    If isEmpty(List) then
      begin
        WriteLn('Очередь пуста');
      end;
 
    p := List.head;
    while p <> nil do
      begin
        Write( p^.Data, ' ' );
        p := p^.next
      end;
    WriteLn
  end;
 
procedure Push(var List: TList; Data: TData);
  var p: ListLinkPtr;
  begin
    new(p);
    p^.next := nil;
    p^.prev := List.tail;
    p^.Data := Data;
 
    if List.tail <> nil then
      List.tail^.next := p
    else
      List.head := p;
      List.tail := p;
      writeln;
  end;
 
function Pop(var List: TList): TData;
  var t: ListLinkPtr;
  begin
    Pop := 0;
    t := List.head;
    List.head := t^.next;
 
    if List.head <> nil then
      List.head^.prev := nil
    else
      List.tail := nil;
 
    Pop := t^.Data;
    Dispose(t);
  end;
 
procedure InitList(var List: TList);
  begin
    List.head := nil;
    List.tail := nil;
  end;
 
procedure DeleteList(var List: TList);
  begin
    while not IsEmpty(List) do Pop(List);
  end;
  
  
var
List: TList;
i:integer;
x:integer;
s:boolean;
 
begin
InitList(List);
for i:=1 to 5 do begin
Push(List,i);
end;
writeln( 'Исходная очередь:' );
ShowList(List);
writeln;
x:=Pop(List);
Writeln('Головной эдемент:' );
write(x);
writeln;
writeln;
writeln( 'Новая очередь:' );
ShowList(List);
writeln;
Writeln('Очередь пустая?');
s:=IsEmpty(List);
write(s);
writeln;
writeln;
DeleteList(List);
ShowList(List);
end.

[s-andriano]

Очередь можно реализовать по-разному.
Один из вариантов - посредством списка.
По сути дела, если Вы храните у списка оба конца, то его 1 к 1 можно использовать как очередь. PUSH и POP будут всего лишь вставкой в один конец списка и извлечение из другого.