编写实现队列的例程

TQueue = class
private
FQueue:array[1..10] of integer;
CurentRearPos:integer;
NumOfElem:integer;
protected
procedure InitQueue;
public
constructor Create;
procedure pushelem(value:integer);
function popelem:integer;
end;

constructor TQueue.Create;
begin
InitQueue;
end;

procedure TQueue.InitQueue;
var
i:integer;
begin
for i:=1 to 10 do FQueue[i]:=0;
CurentRearPos:=1;NumOfElem:=0;
end;

function TQueue.popelem: integer;
begin
if NumOfElem>0 then
begin
result:=FQueue[1];
Dec(CurentRearPos);Dec(NumOfElem);
end
else
raise Except