program main;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  stack in 'stack.pas',
  stackPrint in 'stackPrint.pas';

var z : TStack;
    x : TStackPrint;
begin

  z := TStack.Create;
  z.StackPush('A');
  z.StackPush('B');
  writeln(z.StackPop);

  x := TStackPrint.Create;
  x.StackPush('C');
  x.StackPush('D');
  x.StackPush('E');
  x.Print; //vypise obsah zasobniku

  readln;


end.