Нужна помощь с решением задачи. Динамическая память на паскале

[Loginnn]

Создать однонаправленную очередь целых чисел.Распечатать.
Отрицательные удалить, а все элементы отрезка
[0;10] продублировать.

[Stilet]

Попытки? Наработки?

[Loginnn]

type
  TY = char;
  PStackNode = ^TStackNode;
  TStackNode = record
    Next: PStackNode;
    Data: TY;
  end;
  
  PQueue = ^TQueue;
  TQueue = record
    Head: PStackNode;
    Tail: PStackNode;
  end;

procedure MakeQueue(var q: PQueue);
begin
  new(q);
  q^.Head := nil;
  q^.Tail := nil;
end;

[Stilet]

Мда... Ладно. Опробуй следующий пример: http://www.programmersforum.ru/showthread.php?t=87357
Сортировку оттуда можешь не брать.