Паскаль.Стеки

[Viwwna]

Плохо разбираюсь с созданием динамических структур типа стек....Помогите понять алгоритм приведенного кода:

Program steki;
type st=^stek;
stek=record
t:integer;
a:st;
end;
var s1,s2:st;
i1:integer;
  begin
  s2:=nil;
  i1:=0;
  while i1>=0 do
        begin
            new(s1);
            writeln ('Введите число:');
            read(i1);
            s1^.t:=i1;
            s1^.a:=s2;
            s2:=s1;
            end;
        repeat
        writeln('Элемент стека: ',s1^.t);
        s2:=s1^.a;
        dispose(s1);
        s1:=s2;
    until(s1=nil);
    End.

Спасибо, кто объяснит алгоритм решения данного кода (что и как происходит).

[ViktorR]

Program steki;
type st=^stek; {объявление типа - указатель на структуру типа stek }
stek=record {описание элемента динамической структуры - запись}
t:integer; {информационное поле структуры}
a:st;   {техническое поле, используется для связывания элементов}
end;
var s1,s2:st; {объявление двух переменных, которые теперь являются
типизированными указателями - указатели на такую структуру памяти, в которой будут размещаться элементы стека}
{s1-временная переменная - нужна на стадии формирования элемента,  s2 - переменная - указатель на вершину стека}
i1:integer;
  begin
  s2:=nil; {стек пуст}
  i1:=0;
  while i1>=0 do
        begin
            new(s1); {просим выделить в динамической области такое количество памяти, что бы
там разместился элемент структуры - целое и указатель. s1 - получает значение адреса на начало такого фрагмента памяти}
            writeln ('Введите число:');
            read(i1);
            s1^.t:=i1; {заполняем элемент полезной информацией}
            s1^.a:=s2; {заполняем техническое поле - nil - это последний элемент}
            s2:=s1; {передаем адрес начала элемента - s2-хранит адрес на вершину стека}
            end; {конец цикла While}
        repeat
        writeln('Элемент стека: ',s1^.t); {поскольку при последней операции в предыдущем цикле
указатель на элемент в вершине стека сохранился во временной переменной s1, то используем этот момент
и читаем введенное значение - полезную информацию}
        s2:=s1^.a; {переносим указатель на вершину стека}
        dispose(s1); {освобождаем память из под прочитанного элемента - возвращаем в "кучу"}
        s1:=s2; {переписываем указател на вершину стека во временную переменную и переходим на начало цикла}
    until(s1=nil);
    End.

Ну вот, объяснил ...