На этом шаге мы рассмотрим формирование стека и добавление нового элемента..

Начальное формирование стека выполняется группой из следующих операторов:

 New(pTop); 
 pTop^.pNext:=Nil;
 pTop^.Element := D1;

Рис.1. Начальное формирование вершины стека

Замечание.
Последний оператор или группа операторов записывает содержимое поля данных первой компоненты.

Рассмотрим процедуру формирования стека:

 Procedure Create_Stack(var pTop:PtrRec; D:TypeElement);
  Begin
     New(pTop);
     pTop^.pNext := Nil;
     pTop^.Element :=D;
  End;

На следующем шаге мы рассмотрим добавление нового элемента в стек.