{primitivni zasobnik}

program Stack;

{$APPTYPE CONSOLE}

uses
  SysUtils, DArray in 'DArray.pas';

var c : char;
    text : string;

begin
  //pouziti push na charech
  write('Zadej text: ');
  read(c);

  while c<>#13 do
  begin
    StackPush(c);
    read(c);
  end;
  readln;

  writeln(StackGet);
  writeln(StackGet(2));

  while not(StackIsEmpty) do
    write(StackPop);
  writeln;

  //pouziti push na string
  write('Zadej text: ');
  readln(text);
  StackPush(text);
  while not(StackIsEmpty) do
    write(StackPop);

  //pouziti pushall
  c := 'a';
  //StackPushAll('j','o','h',c); ... nefunguje :[
  while not(StackIsEmpty) do
    write(StackPop);

  readln;
end.