Обобщение процедур

type
 
    CharItemPtr = ^CharItem;
    CharItem = record
        data: char;
        next: CharItemPtr;
    end;
    QueueOfChars = record
        first, last: CharItemPtr;
    end;
 
    PointerQOC = ^QueueOfChars;
 
    ItemPtr = ^Item;
    Item = record
        data: PointerQOC;
        next: ItemPtr;
    end;
 
    MainQueue = record
        first, last: ItemPtr;
    end;
 
 
procedure MQInit(var queue: MainQueue);
begin
    queue.first := nil;
    queue.last := nil
end;
 
procedure MQPut(var queue: MainQueue; queuech: PointerQOC);
begin
    if queue.first = nil then
    begin
        new(queue.first);
        queue.last := queue.first
    end
    else
    begin
        new(queue.last^.next);
        queue.last := queue.last^.next
    end;
    queue.last^.data := queuech;
    queue.last^.next := nil
end;
 
procedure MQGet(var queue: MainQueue; var queuech: PointerQOC);
var
    tmp: ItemPtr;
begin
    queuech := queue.first^.data;
    tmp := queue.first;
    queue.first := queue.first^.next;
    if queue.first = nil then
        queue.last := nil;
    dispose(tmp)
end;
 
function MQIsEmpty(var queue: MainQueue): boolean;
begin
    MQIsEmpty := queue.first = nil
end;
 
procedure QOCInit(var queuech: QueueOfChars);
begin
    queuech.first := nil;
    queuech.last := nil
end;
 
procedure QOCPut(var queuech: QueueOfChars; ch: char);
begin
    if queuech.first = nil then
    begin
        new(queuech.first);
        queuech.last := queuech.first
    end
    else
    begin
        new(queuech.last^.next);
        queuech.last := queuech.last^.next
    end;
    queuech.last^.data := ch;
    queuech.last^.next := nil
end;
 
procedure QOCGet(var queuech:QueueOfChars; var ch: char);
var
    tmp: CharItemPtr;
begin
    ch := queuech.first^.data;
    tmp := queuech.first;
    queuech.first := queuech.first^.next;
    if queuech.first = nil then
        queuech.last := nil;
    dispose(tmp)
end;
 
function QOCIsEmpty(var queuech: QueueOfChars): boolean;
begin
    QOCIsEmpty := queuech.first = nil
end;