Что такое очередь?

Procedure Add(S:String;C:Integer); // в подпрограмму передаются только "полезные" даные Var NewItem:PItem; // Новый элемент очереди
Begin //сначала создадим в памяти наш новый указатель: New(NewItem); //теперь занесем данные: NewItem^.Data:=S; NewItem^.Chislo:=C; //Теперь сделаем ссылку на следующий элемент NewItem^.Next:=First; // "отдаляем" , начало очереди First:=NewItem; // и делаем только-что созданный элемент - головой
End;

Procedure Delete; Var DelItem:PItem; // удаляемый элемент
Begin DelItem:=First; // запоминаем удаляемый элемент. Это надо сделать т к мы далее будем сохранять ссылу на следующий элемент, который из 2-ого превратится в 1-ый If DelItem<>Nil Then Begin // да, а может в очереди ничего уже нет. Обязательно надо проверить First:=DelItem^.Next; // Вот теперь 2-ой эл-т станет головой! Dispose(DelItem) // Непосредственно удаление End
End;

Procedure DeleteAll; Var DelItem:PItem; // текущий удаляемый эл-т CurItem:PItem; // текущий "рабочий" эл-т
Begin CurItem:=First; // все начинается естно с начала :) While CurItem<>Nil Do Begin// Пока не ун6ичтожим ЭТО все!! DelItem:=CurItem; // удалить текущий элемент CurItem:=CurItem^.Next; // запомнить, что следующий удаляемый будет следующий по списку Dispose(DelItem) // непосредственно отправление элемента в ад End; First:=Nil; // ето для надежности
End;

procedure DoWithAll; Var CurItem:PItem; // ето текущий элемет в очереди 
Begin CurItem:=First; // начинаем с начала While CurIte<>Nil Do Begin // пока не увидим свет в конце тунелля (не выберемся то есть) Inc(CurItem^.Chislo); //увелич на единицу WriteLn(CurItem^.Data); // вывод на печать CurItem:=CurItem^.Next // переходим к следующему элементу End
End;

procedure Add_N(S:String;C:Integer; N:Integer); Var CurItem:PItem; // текущий эл-т PredItem:PItem; // предыдущий эл-т NewItem:PItem; Curr:Integer;
Begin // Сначала надо найти существующий n-ый элемент: CurItem:=First; Curr:=1; PredItem:=Nil; While (CurItem<>Nil) And (Curr<N) Do Begin PredItem:=CurItem; CurItem:=CurItem^.Next; Inc(N) End; // вроде нашли. Но может получится так, что вставляем мы в 5-ую позицию, а эл-тов всего 3. тогда наш цикл закончится, когда N=4, а CurItem=Nil // Надо все это проверять! If CurItem<>Nil Then // Все хорошо Begin // Добавляем New(NewItem); NewItem^.Data:=S; NewItem^.Chislo:=C; NewItem^.Next:=CurItem^.Next; PredItem^.Next:=NewItem End Else // нет - не нашлось n-ого эл-та. Тогда можно добавить в конец, или не добавлять вовсе.
End;

Procedure Insert_N(D:String; N:Integer); Var NewItem:PItem; // хочу заметить, что CurItem:PItem; // "предыдущий" эл-т мы Curr:Integer; // не сохраняем - он у нас уже есть: CurItem^.Pred 
// но тут есть одна закорючка, которую не все понимают!!!
Begin CurItem:=First; Curr:=1; While (CurItem<>Nil) And (Curr<N) Do Begin CurItem:=CurItem^.Next; Inc(Curr) End; If CurItem<>Nil Then // все хорошо Begin // добавляем New(NewItem); NewItem^.Data:=D; NewItem^.Next:=CurrItem^.Next; CurrItem^.Next^.Pred:=NewItem; // ЗАКОРЮЧКА! (объяснение ниже) CurrItem^.Next:=NewItem; NewItem^.Pred:=CurrItem; End
End;

Procedure GoFromBeginToEnd; Var CurItem:PItem;
Begin CurItem:=First; While CurItem<>Nil Do begin // действия с текущим элементом CurItem:=CurItem^.Next //переход к следующему. End;
End;
Procedure GoFromEndToBegin; Var CurItem:PItem;
Begin CurItem:=Last; While CurItem<>Nil Do begin // действия с текущим элементом CurItem:=CurItem^.Pred //переход к предыдущему. End;
End;

var DelItem; // удаляемый эл-т
... DelItem^.Pred^.Next:=DelItem^.Next; // переход от предыдущего к следующему DelItem^.Next^.Pred:=DelItem^.Pred; // от следующего - к предыдущему // ссылки сохранены - можно удалять: Dispose(DelItem);
...

Type PItem=^TItem; TItem=Record Data:String; Up:PItem; // клетка вверх Down:PItem; // клетка вниз Left:PItem; // клетка влево Right:PItem // клетко вправо End;