[Pascal ABC] Задать 2 очереди

[DemonXZ]

Даны две очереди; адреса начала и конца первой равны P1 и P2, а второй — P3 и P4 (если очередь является пустой, то соответствующие адреса равны nil). Переместить все элементы первой очереди (в порядке от начала к концу) в конец второй очереди и вывести новые адреса начала и конца второй очереди.

Помогите, пожалуйста, с задачей. Собственно мне нужно задать 2 очереди, а дальше я разберусь. Можно ли задать 2 очереди через одну процедуру?

Вот пример задания одной очереди:

uses
  crt;
type   // описываем структуру узла
  pitem = ^item;
  item = record;
    data: integer;
    prev: pitem;
  end;
type  // описываем очередь
  Queue = record;
    head,tail: pitem
  end;
var
  Q: Queue;
  i: integer;
Procedure PushTail (x: integer); // процедура добавления элемента в очередь
var
  p: pitem;
begin
  new(p); // создаем новый узел
  p^.data:=x;
  p^.prev:=nil;
  {Если хвост есть, то перед хвостом теперь узел p}
  if Q.Tail <> nil then
    Q.Tail^.prev:=p;
  Q.Tail:=p; // новый узел в конец
  if Q.head = nil then Q.head:=Q.tail
end;

Begin
  for i:=1 to 10 do
    PushTail(random(10))
end.