[Bargest]

Такая "очередь" пойдет?

Код:

var queue : string;
...
l := length(queue);
for i := 1 to l do
  if (queue[i] >= '0') and (queue[i] <= '9') then queue:= queue+ queue[i];