Работа с очередью

type
  //Указатель на элемент очереди.
  TPElem = ^TElem;
  //Элемент очереди.
  TElem = record
    Data : Integer;
    PNext : TPElem;
  end;
  //Очередь.
  TQueue = record
    PFirst, PLast : TPElem;
  end;
 
//Добавление элемента в конец очереди.
procedure QueuePush(var aQueue : TQueue; var aPElem : TPElem);
begin
  if aPElem = nil then Exit;
 
  aPElem^.PNext := nil;
  if aQueue.PFirst = nil then
    aQueue.PFirst := aPElem
  else
    aQueue.PLast^.PNext := aPElem
  ;
  aQueue.PLast := aPElem;
end;
 
//Изъятие элемента из начала очереди.
function QueuePop(var aQueue : TQueue; var aPElem : TPElem) : Boolean;
begin
  Result := False;
  if aQueue.PFirst = nil then Exit;
 
  aPElem := aQueue.PFirst;
  aQueue.PFirst := aPElem^.PNext;
  if aQueue.PFirst = nil then aQueue.PLast := nil;
  Result := True;
end;
 
//Удаление очереди из памяти (очистка очереди).
procedure QueueFree(var aQueue : TQueue);
var
  PDel : TPElem;
begin
  while QueuePop(aQueue, PDel) do Dispose(PDel);
end;
 
//Распечатка очереди.
function QueueText(var aQueue : TQueue) : String;
var
  QTmp : TQueue;
  PElem : TPElem;
  i : Integer;
begin
  Result := '';
  QTmp.PFirst := nil;
  QTmp.PLast := nil;
  //Переливаем элементы из исходной очереди во временную и при этом
  //выполняем распечатку.
  i := 0;
  while QueuePop(aQueue, PElem) do begin
    QueuePush(QTmp, PElem);
    //Распечатка.
    Inc(i);
    if i > 1 then Result := Result + ', ';
    //Индекс:Значение.
    Result := Result + IntToStr(i) + ':' + IntToStr(PElem^.Data);
  end;
  //Возвращаем элементы в исходную очередь.
  while QueuePop(QTmp, PElem) do QueuePush(aQueue, PElem);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Q1, Q2, Q3, Q4 : TQueue;
  PElem : TPElem;
  i, Cnt, Num, A, B : Integer;
begin
  //Начальная инициализация очередей.
  Q1.PFirst := nil;
  Q1.PLast := nil;
  Q2.PFirst := nil;
  Q2.PLast := nil;
  Q3.PFirst := nil;
  Q3.PLast := nil;
  Q4.PFirst := nil;
  Q4.PLast := nil;
 
  //Количество элементов в исходной очереди.
  Cnt := StrToInt(Edit1.Text);
  //Наполняем исходную очередь.
  for i := 1 to Cnt do begin;
    New(PElem);
    PElem^.Data := i;
    QueuePush(Q1, PElem);
  end;
  //Распечатка исходной очереди.
  Memo1.Lines.Add('--------------------------------------------------');
  Memo1.Lines.Add('Сформирована очередь: ');
  Memo1.Lines.Add(QueueText(Q1));
 
  //Первое условие.
  Num := StrToInt(Edit2.Text);
  Memo1.Lines.Add(
    'Первое условие - распечатать все элементы, меньшие заданного: '
    + Edit2.Text
  );
  //Второе условие.
  A := StrToInt(Edit3.Text);
  B := StrToInt(Edit4.Text);
  Memo1.Lines.Add(
    'Второе условие - распечатать все элементы, попавшие в дипазан: ['
    + Edit3.Text + ', ' + Edit4.Text + '].'
  );
  Memo1.Lines.Add('Треть условие - распечатать все остальные элементы.');
 
  //Решение задачи.
 
  //Действовать будем так. Будем переливать значения из первой очереди - во вторую,
  //третью и четвёртую - согласно трём условиям.
  while QueuePop(Q1, PElem) do begin
    if PElem^.Data < Num then
      QueuePush(Q2, PElem)
    else if (PElem^.Data >= A) and (PElem^.Data <= B) then
      QueuePush(Q3, PElem)
    else
      QueuePush(Q4, PElem)
    ;
  end;
 
  //Распечатка результатов.
  Memo1.Lines.Add('Элементы, удовлетворяющие первому условию:');
  Memo1.Lines.Add(QueueText(Q2));
  Memo1.Lines.Add('Элементы, удовлетворяющие второму условию:');
  Memo1.Lines.Add(QueueText(Q3));
  Memo1.Lines.Add('Элементы, удовлетворяющие третьему условию:');
  Memo1.Lines.Add(QueueText(Q4));
 
  //Удаление очередей из памяти.
  QueueFree(Q1);
  QueueFree(Q2);
  QueueFree(Q3);
  QueueFree(Q4);
end;