Program Fila_Circular_Estatica;

{$I filaest.pas}

Var
  F1,F2:TFila;
  Dado:TFila_Dado;
Begin
  { Sugestao... altere o tamanho da Fila para 4 elementos
    e verifique se o programa vai funcionar corretamente  }

  fila_inicializa(F1);
  fila_inicializa(F2);

  if fila_insere(F1,1)
  then writeln('Insercao 1 OK!')
  else writeln('>>> Erro: Estouro de pilha!');

  if fila_insere(F1,2)
  then writeln('Insercao 2 OK!')
  else writeln('>>> Erro: Estouro de pilha!');

  if fila_insere(F1,3)
  then writeln('Insercao 3 OK!')
  else writeln('>>> Erro: Estouro de pilha!');

  if fila_insere(F1,4)
  then writeln('Insercao 4 OK!')
  else writeln('>>> Erro: Estouro de pilha!');

  if fila_retira(F1,dado)
  then writeln('Remocao OK')
  else writeln('>>> Erro: Problema na retirada da fila!');

  if fila_insere(F1,5)
  then writeln('Insercao 5 OK!')

  else writeln('>>> Erro: Estouro de pilha!');

  fila_exibe(F1);
  readln;
End.