не могу найти ошибку!

[novi4ok_Delphi]

В общем мне нужно удалить последний отрицательный элемент очереди,но как-только находится отриц.элемент,удаляются все равные ему+этот элемент.никак не могу найти ошибку,помогите разобраться!

[sanela]

Я бы не сказал это ошибкой. Выложи сюда код программы. Ты сам можешь её исправить так, как это ошибка не в программе, а в алгоритме. Для начала составь блок-схему своей задачи, а потом по коду программы и сравни.

[novi4ok_Delphi]

мой косяк где-то при создании новой очереди!!! В общем вот!

procedure Draw(a : TQueue);
var
  i: Integer;
begin
  i := 0;
  FormMain.InStringGrid.ColCount := 1;
  while a.Head <> Nil do begin
    FormMain.InStringGrid.Cells[i, 0] := IntToStr(a.Head.Info);
    FormMain.InStringGrid.ColCount := FormMain.InStringGrid.ColCount + 1;
    a.Head := a.Head.Next;
    Inc(i);
  end;
  FormMain.InStringGrid.ColCount := FormMain.InStringGrid.ColCount - 1;
end;

function QueueIsEmpty(var a: TQueue): Boolean;
// проверка на пустоту
begin
  Result := a.Head = Nil
end;

procedure InQueue(var a: TQueue; x: Integer);
var
  p: PNode;
begin
  New(p);
  with p^ do begin
    Info := x;
    Next := Nil
  end;
  if QueueIsEmpty(a) then // если очередь пуста
  with a do begin         // создаем первый элемент очереди
    Head := p;
    Tail := p
  end
  else                    // добавляем элемент в конец очереди
  with a do begin
    Tail^.Next := p;
    Tail := p
  end;
end;

procedure InicQueue(var a: TQueue);  //инициализация очереди
begin
  a.Head := Nil;
  a.Tail := Nil;
end;

procedure NewQueue;
var
  p, qnew: TQueue;
  i: Integer;
begin
  p := q;
  InicQueue(qnew);
  while p.Head <> Nil do
  begin
    if p.Head.Info < 0 then begin
      i := p.Head.Info;
      p.Head := p.Head.Next;
    end
    else
      p.Head := p.Head.Next;
  end;
  p := q;
  while p.Head <> Nil do
    if p.Head.Info <> i then begin
      InQueue(qnew, p.Head.Info);
      p.Head := p.Head.Next;
    end
    else begin
      p.Head := p.Head.Next;
      Break;
    end;
  Draw(qnew);
  FormMain.ResultLabel.Caption:= 'последний отрицательный элемент =  ' + IntToStr(i);
end;

[vedro-compota]

подробнее код комментируй ) какой цикл что делает )) так всем легче будет ) а может и сам поймёшь где ошибся))

[novi4ok_Delphi]

я ставил отладчик, в общем ошибка в procedure NewQueue,она не моя и исправить ошибку не получается,вроде логика правильная,но где подвох,не понимаю...