Кольцевая очередь на основе массива

uses crt;
const n=5;
var
arr:array[1..n] of integer;
a:integer;          //меню
proverka:boolean;
count,first, last,i,d: integer;
ch:char;
 
//функция проверки пустоты очереди
function pust:boolean;
         begin
         if count=0 then
            pust:=true
            else
                pust:=false;
         end;
//функция проверки заполненности очереди
function poln:boolean;
         begin
         if count=n then
            poln:=true
            else
                poln:=false;
         end;
//вывод текущего состояния на экран
procedure  output;
           begin
           proverka:=pust;
           if (proverka = false)
               then
               begin
                     writeln('Количество элементов в очереди: ',count);
 
                     for i:=first to (first+count-1) do
                     Write(arr[i], ' ');
                     writeln();
 
              end
          else
              writeln('Очередь пуста!');
           end;
 
 
//добавление элемента в конец очереди
procedure push(c:integer);
          begin
               proverka:=poln;
               if (proverka = false)
               then
                   begin
                    arr[last]:=c;
                    inc(count,1);
                    inc(last,1);
                    if last > n then last:=1;
                    end
               else
               writeln('Добавить невозможно. очередь заполнена.');
          end;
//удаление элемента из начала очереди
procedure pop;
           begin
                arr[first]:=0; //что с ним делать ????
                 inc(first,1);  dec(count,1);
                 if first>n then first:=1;
           end;
 
//главная программа
begin
clrscr;
a:=77;
//инициализация пустой очереди
first:=1;
last:=1;
count:=0;
//организация диалогового окна с пользователем
while (a<>0) do
  begin
     writeln('Меню:');
     writeln('1-проверка пустоты очереди');
     writeln('2-проверка заполненности очереди');
     writeln('3-добавление элемента в конец очереди');
     writeln('4-удаление элемента из начала очереди');
     writeln('5-вывод текущего состояния очереди');
     writeln('0-выход');
     read(a);
     case a of
          1:    begin
                     proverka:=pust;
                     if (proverka=true)
                     then writeln('очередь пуста')
                     else writeln ('очередь не пуста');
                end;
          2:    begin
                     proverka:=poln;
                     if (proverka=true)
                     then writeln('очередь заполнена')
                     else writeln ('очередь не заполнена!')
 
                end;
          3:    begin
                     proverka:=poln;
                     if (proverka=false)
                     then
                     begin
                         writeln('введите число');
                         read(d );
                          push(d);
                     end
                     else  writeln('Добавить невозможно. очередь заполнена!')
                end;
          4:    begin
                     pop();
                   //  output();
                end;
          5:    output();
          0: exit;
          end;
  end;
 
end.