Работа со Стеком

unit Stacksh;
 
interface 
 
type
  tstack = ^stac;
  stac = record
    inf: shortstring;
    next: tstack;
  end;
 
procedure push(var head: tstack; item: shortstring);
function pop(var head: tstack): shortstring;
function InitStack: tstack;
function Peek(head: tstack): shortstring;
function EmptyStack(head: tstack): boolean;
 
implementation
 
function InitStack: tstack;
begin
  Initstack := nil;
end;
 
procedure Push(var head: tstack; item: shortstring);
var
  r: tstack;
begin
  new(r);
  r^.inf := item;
  r^.next := head;
  head := r;
end;
 
function Pop: shortstring;
var
  i: shortstring;
  r: tstack;
begin
  r := head;
  i := r^.inf;
  head := r^.next;
  dispose(r);
  pop := i;
end;
 
function Peek: shortstring;
begin
  peek := head^.inf;
end;
 
function EmptyStack(head: tstack): boolean;
begin
  if head = nil then
    EmptyStack := true else
    EmptyStack := false;
end;
end.

begin
  var n := ReadLnInteger('Количество элемнтов списка: n =');
  var L := New List<integer>;
  Write('Введите через пробел элементы списка: ');
  var v : Integer; for var i := 1 to n do begin Read(v); L.Add(v); end;
  WriteLn('Список: ', L);
 
  var S := New Stack<integer>;
  foreach v in L do
    if (S.Count = 0) or (S.Peek <> v) then
      S.Push(v);
  WriteLn('Стек: ', S);
 
  L := New List<integer>;
  while S.Count > 0 do
    L.Add(S.Pop);
  WriteLn('Список: ', L);
end.