Динамические структуры данных

{--------------------------------------------------------------}
uses
  crt;
type  Inf=integer;           {- тип информационного поля       }
const Zero:Inf=0;            {- нулевая константа              }
type    Ptr=^EL;             {- указатель на элемент           }
        EL=record            {- элемент                        }
            Dn:Inf;          {- информационное поле            }
            Nx:Ptr;          {- ссылка на следующий злемент    }
           end;
   Stack = Object            {- объект - стек }
            P:Ptr;
            constructor Init;        { Создать стек            }
            function  Empty:boolean; { Пустой ли стек ?        }
            procedure Push(D:Inf);   { Добавить в стек         }
            function  Pop:Inf;       { Взять из стека          }
            destructor Done;         { Удалить стек            }
            procedure Print;         { Печать стека            }
            Procedure npob(var adr:Ptr;var adr1:Ptr);
           end;
{--------------------------------------------------------------}
constructor Stack.Init;                 { Создать стек         }
begin
  p:=nil
end;
 
function  Stack.Empty:boolean;          {Пустой ли стек        }
begin
  if p=nil then
    Empty:=true
  else
    Empty:=false
end;
 
procedure Stack.Push(D:Inf);            {Добавить в стек       }
var q:Ptr;
begin
  new(q);
  q^.Dn:=D;
  p^.Nx:=q;
  p:=q;
  p^.Nx:=nil
end;
 
function  Stack.Pop:Inf;                {Взять из стека        }
var q:Ptr;
begin
  Pop:=p^.Dn;
  q:=p;
  p:=q^.Nx;
  Dispose(q)
end;
 
destructor Stack.Done;                   {Удалить стек          }
var D:Inf;
begin
  while not Empty do
    D:=Pop
end;
 
procedure Stack.Print;                  {- печать стека        }
var q:Ptr;
begin            { указатель p движется от начала списка до конца }
  q:=p;
  while q<>nil do
    begin
      write(q^.Dn,' ');
      q:=q^.Nx
    end
end;
 
Procedure Stack.npob(var adr:Ptr;var adr1:Ptr);
var
 i:integer;
begin
  p:=adr;
  if p^.Nx<>nil then
    if p^.Dn=p^.NX^.Dn then
    begin
      adr1:=adr;
      adr:=p^.NX^.NX;
    end
    else
    begin
      if p^.Nx^.Nx<>nil then
        p^.Nx^.NX^.Dn:=abs(p^.Dn-p^.NX^.Dn)
      else
      begin
        i:=abs(p^.Dn-p^.NX^.Dn);
        p:= p^.Nx;
        Push(i)
      end
    end;
end;
 
var
  a:Stack;
  adr,adr1:Ptr;
  c:char;
  s:string;
  p:boolean;
  i,code:integer;
  MemBefore:longint;
begin
  Clrscr;
  Writeln('BBodute 3Ha4eHu9 B cnucok (ToLbKo L/uFPbl)');
  Writeln('Dl9 3aBePLLIEHu9 BBoDa Ha}l{MuTe Esc');
  p:=false;
  MemBefore:=MemAvail;
  repeat
    gotoXY(1,WhereY);
    clrEoL;
    c:=readkey;
    s:='';
    While (c<>#13) and (c<>#27) do
    begin
      if (c>#47) and (c<#57) then
      begin
        s:=s+c;
        Write(c);
      end
      else
      if c=#8 then
      begin
        delete(s,length(s),1);
        gotoXY(1,WhereY);
        clrEol;
        Write(s);
      end;
      c:=readkey;
    end;
    val(s,i,code);
    if c=#13 then
      if code=0 then
        if not(p) then
        begin
          a.Init;
          a.Push(i);
          adr:=a.p;
          p:=true;
        end
        else
          a.Push(i);
  until c=#27;
  clrscr;
  adr1:=adr;
  if p then
  begin
    a.npob(adr,adr1);
 
  end;
  if p then
  begin
    a.p:=adr;
    if adr=nil then
      Writeln('Cnucok nyCt')
    else
      a.Print;
    Writeln;
    a.p:=adr1;
    a.Done;
    Writeln('Before MemAvail= ' ,MemBefore);
    Writeln('After MeMAvail= ' , MemAvail);
    readln;
  end;
end.