Составить программу, которая формирует стек

type TStack=^Stack;
Stack=record
x:Integer;
next:TStack;
end;
 
procedure push(var st:TStack;n:Integer);
var a:TStack;
begin
new(a);
a^.x:=n;
a^.next:=st;
st:=a;
end;
 
procedure pop(var st:TStack);
var t:TStack;
begin
t:=st;
st:=st^.next;
dispose(t);
end;
 
procedure print(st:TStack);
begin
while st<>nil do
 begin
 Write(st^.x,' ');
 st:=st^.next;
 end;
Writeln;
end;
 
procedure free(var st:TStack);
begin
while st<>nil do pop(st);
end;
 
var a:TStack;
i,n:Integer;
begin
Write('Count of elements:');
Readln(n);
Randomize;
for i:=1 to n do push(a,Random(41)-20);
print(a);
free(a);
Readln;
end.

{исключение в паскале: типизированный указатель объявляется до}
{объявления типа, на который он ссылается}
type TStack = ^Stack; {объявлние типизированного указателя}
     Stack = record {описание типа для элементов стека}
       x: Integer; {данные элемента стека, в данном случае целое число}
       next: TStack {указатель на следующий элемент стека, у последнего элемента = nil}
     end;
 
{процедура занесения числа в стек}
procedure push(var st: TStack; n: Integer); {передача параметра по ссылке, изменяется переменная st}
var a: TStack; {локальная переменная для формирования нового стека}
begin
  new(a); {выделяем память под новую запись}
  a^.x := n; {заносим число в новую запись}
  a^.next := st; {заносим указатель на бывшую вершину стека в новую запись}
  st := a {новая вершина стека}
end;
 
{процедура удаления числа из стека}
procedure pop(var st: TStack); {передача параметра по ссылке, изменяется переменная st}
var t: TStack; {локальная переменная для формирования нового стека}
begin
  t := st; {старая вершина стека}
  st := st^.next; {смещаем указатель вершины стека на следующий элемент стека}
  dispose(t) {освобождаем память, занятую старой вершиной стека}
end;
 
{процедура печати стека}
procedure print(st: TStack); {передача параметра по значению, сама переменная st не изменяется}
begin
  while st <> nil do {пока не достигнем дна стека, цикл}
    begin
      write(st^.x, ' '); {печатаем число из элемента стека и пробел}
      st := st^.next {смещаем указатель вершины стека на следующий элемент стека}
    end;
  writeln
end;
 
{процедура освобождения памяти, выделенной под стек}
procedure free(var st:TStack); {передача параметра по ссылке, изменяется переменная st}
begin
  while st <> nil do pop(st);{пока не достигнем дна стека, удаляем число из стека}
end;
 
{объявление глобальных переменных}
var a: TStack; {стек}
    i, n: Integer; {счётчик, количество элементов в стеке}
{основная программа}
begin
  {a := nil;} {должно быть, но не обязательно, паскаль делает это автоматически}
  Write('Count of elements:'); {...}
  Readln(n); {ввод количества элементов стека}
  Randomize; {инициализация генератора псевдослучайных чисел}
  for i := 1 to n do push(a, Random(41) - 20); {заносим в стек n псевдослучайных чисел в диапазоне -20..20}
  print(a); {печатаем стек}
  free(a); {освобождаем память, выделенную под стек}
  Readln {программа завершится после нажатия клавиши <Enter>}
end. {конец программы}