LIFO

program Kelompok5_Stack;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const max = 5;

type tumpukan=array[1..10] of char;


type tumpuk=record
 nilai : tumpukan;
 depan : integer;
 belakang : integer;
 isi : 0..max;
end;

var
antrian : tumpuk ;

procedure PUSH(var antrian : tumpuk; x : char);
begin
 if antrian.isi=max then
 write(' Antrian Penuh ')
else
  Begin
     if antrian.Belakang=max then
     antrian.Belakang:=max
  else
     antrian.Belakang:= antrian.Isi+1;
     antrian.nilai[antrian.Belakang]:=x;
     antrian.Isi:=antrian.Isi+1;
  end;
end;

procedure POP(var antrian : tumpuk; var x : char);
begin
  if antrian.isi=0 then
     write('Antrian Kosong')
  else
begin
  antrian.Belakang:= antrian.Isi;
  x:=antrian.nilai[antrian.Belakang];
  antrian.nilai[antrian.Belakang]:=' ';
  antrian.isi:=antrian.isi-1;
end;
end;


var i,pilih : integer;
x : char ;
begin

repeat
  writeln;
  writeln('1. PUSH');
  writeln('2. POP');
  writeln('0. Keluar');
  writeln('Masukan pilihan Menu Anda : ');

readln(pilih);
  if pilih<>0 then
     case pilih of
    1: begin
            write('Nilai yang dimasukan : ');readln(x);
       PUSH(antrian,x);
      for i := 1 to max do

         write(antrian.nilai[i],' ');
         writeln;
       end;
    2: begin
      x:=' ';
            pop(antrian,x);
       writeln('Data Keluaran = ',x );
      for i:=1 to max do
         write(antrian.nilai[i],' ');
         writeln;
      end;

  end;
until pilih=0;
end.