Program Antrian Statis Circular

Uses Wincrt;
Const Max_Antrian = 5;
Type Antri = Array [1..Max_Antrian] of Char;
Var Antrian         : Antri;
    Depan, Belakang : Integer;
    Elemen,Pil,Pil1 : Char;
Procedure InitAntrian;
Begin
  Depan:=0;
  Belakang:=0;
End;


Procedure Tambah(Var Antrian: Antri; X: Char);
Begin
  If Belakang=Max_Antrian Then
     Begin
       Belakang:=1;
     End
  Else
     Inc(Belakang);

  If Depan=Belakang Then
     Begin
       Writeln('ANTRIAN SUDAH PENUH');
       Dec(Belakang);
       If Belakang=0 Then
          Belakang:=Max_Antrian;
     End
  Else
     Antrian[Belakang]:=X;
  Writeln('Depan: ',Depan,'   Belakang: ',Belakang);
End;

Procedure Hapus(Var Antrian: Antri);
Begin
  If Depan<>Belakang Then
     Begin
       If Depan=Max_Antrian Then
          Depan:=1
       Else
         Begin
           Inc(Depan);
           Antrian[Depan]:=' ';
         End;
     End
  Else
     Writeln('ANTRIAN KOSONG');
     
  Writeln('Depan: ',Depan,'   Belakang: ',Belakang);
End;

Procedure Tampilkan;
Var i : Integer;
Begin
  Write('Keluar <== |');
  For i := 1 To Max_Antrian Do
      Write(' ',Antrian[i],' |');
  Write(' <== Masuk');
End;

Begin  
  InitAntrian;
  Repeat
    Clrscr;
    Writeln('DAFTAR MENU PILIHAN');
    Writeln('===================');
    Writeln('1. Tambah Elemen');
    Writeln('2. Hapus Elemen');
    Writeln('3. Exit');
    Write('Pilihan [1..3]: ');Pil:=ReadKey;
    Case Pil of
    '1' : Begin
            Repeat
              Clrscr;
              Writeln('TAMBAH ELEMEN');
              Writeln('=============');
              Writeln;
              Write('Isikan Elemen: ');Readln(Elemen);
              Tambah(Antrian,Elemen);
              Writeln;Writeln;
              Tampilkan;
              Writeln;Writeln;
              Write('Mau  Tambah  Elemen  Lagi?  [Y/T]: ');Pil1:=Upcase(ReadKey);
            Until Pil1<>'Y';
          End;
    '2' : Begin
            Repeat
              Clrscr;
              Writeln('HAPUS ELEMEN');
              Writeln('=============');
              Hapus(Antrian);
              Writeln;Writeln;
              Tampilkan;
              Writeln;Writeln;
              Write('Mau  Hapus  Elemen  Lagi?  [Y/T]: ');Pil1:=Upcase(ReadKey);
            Until Pil1<>'Y';
          End;
    End;
  Until Pil='3';
End.