Добавление элемента в очередь

1.Исходное состояние:

ВеgUkaz EndUkaz

начало конец

новый

2. Выделение памяти под новый элемент и занесение информации в новый элемент:

new(p);

p^.inf:=10;

p^.uk:=nil;

ВеgUkaz EndUkaz p

3. Установка связи между последним элементом очереди и новым:

EndUkaz^.uk:=p;

ВеgUkaz EndUkaz p

4. Перемещение указателя конца очереди на новый элемент:

EndUk:=p;

ВеgUkaz EndUkaz p