Очередь.Робота с очередью.

[JonnyFletcher]

Помогите я в программирование обще не селен. Буду очень благодарен! (нужно удалить элемент после определенного элемента в очереде который задается с клавиатуры.)
P.S. Нужно срочно если есть добрые люди помогите пожалуйста.

unit Unit2;

interface
type
TElement = integer;
TNodePointer = ^TNode;
TNode = record
value: TElement;
next: TNodePointer;
end;
TMyQueue = class(TObject)
private
  fHead: TNodePointer;
  fTail: TNodePointer;
public
  constructor Create;
  destructor Destroy;
  procedure Enqueue(item: TElement);
  function Dequeue: TElement;
  function isEmpty: boolean;
end;

implementation
constructor TMyQueue.Create;
begin
  fHead:= nil;
  fTail:= nil;
end;
destructor TMyQueue.Destroy;
begin
  while not isEmpty do
    Dequeue;
  fHead:= nil;
  fTail:= nil;
end;
procedure TMyQueue.Enqueue(item: TElement);
var
  temp: TNodePointer;
begin
  New(temp);
  temp^.value:= item;
  temp^.next:= nil;
  if (isEmpty) then
  begin
    fHead:= temp;
    fTail:= temp;
  end
  else
  begin
    fTail^.next:= temp;
    fTail:= temp;
  end;
end;
function TMyQueue.Dequeue: TElement;
var
  temp: TNodePointer;
begin
  if not isEmpty then
  begin
    temp:= fHead;
    fHead:= fHead^.next;
    result:= temp^.value;
    Dispose(temp);
  end
  else
    result:= 0;
end;
function TMyQueue.isEmpty: boolean;
begin
  result:= fHead = nil;
end;



end.

ПОЗЯЗЯЗЯЗЯЗЯЗЯ