unit stackPrint;

interface

uses stack;

type

  TStackPrint = class(TStack)
    procedure Print;
  end;

implementation

//******************************************************************************
procedure TStackPrint.Print;
var i : integer;
begin

  for i:=0 to high(StackArray) do
    write(StackArray[i],' ');
  writeln;
end;

end.