Использование очереди для временного хранения данных (Паскаль)

procedure rec (var q: queue; next, i: integer);
begin
if ((next + 1) ＜ len) then
  begin
    next := next + 1;
    queue [next] := i
  end
else
  writeln ('Очередь
  заполнена')
end;

function reading (var q: queue; index:
integer): integer;
begin
  if (index = index_rec) then
     begin
     writeln ('Очередь пуста');
     reading := 0
     end
  else
  begin
     index := index + 1;
     reading := queue [index]
end end;

len := 100; // Длина очереди
index_rec := 0; // Индекс нового элемента
index_read := 0; // Индекс считываемого элемента