Паскаль. Стеки. Очередь

[womanst]

Прошу помочь исправить ошибку в программе.
необходимо установить "Размер очереди должен быть ограничен только размером доступной оперативной памяти"

type
queue = array[0..30000] of longint;
var
n, b, e, code: longint;
s: string;
a: queue;
procedure push(var x: queue; var z: longint; y: longint);
begin
x[z] := y;
inc(z);
writeln('ok');
end;

procedure pop(var x: queue; var z: longint);
begin
writeln(x[z]);
inc(z);
end;

procedure size(z: longint;p: longint);
begin
writeln(p-z);
end;

procedure front(x: queue; z: longint);
begin
writeln(x[z]);
end;

procedure clear(var z: longint; var p: longint);
begin
z:=1;
p:=1;
writeln('ok');
end;

begin
b:=1;
e:=1;
repeat
readln(s);
if copy(s, 1, 4) = 'push' then
begin
delete(s, 1, 5);
val(s, n, code);
push(a, e, n);
end;
if copy(s, 1, 3) = 'pop' then
begin
if b-e=0 then writeln('error') else pop(a, b);
end;
if copy(s, 1, 4) = 'size' then size(b,e);
if copy(s, 1, 5) = 'front' then
begin
if b-e=0 then writeln('error') else front(a,b)
end;
if copy(s, 1, 5) = 'clear' then clear(b,e);
if copy(s, 1, 4) = 'exit' then begin
writeln('bye');
exit;
end;
until s = '';
end.

[min@y™]

"Размер очереди должен быть ограничен только размером доступной оперативной памяти

89.png