Удалить первый отрицательный элемент из очереди

type
  Ochered=^O;
  O=record
      d:integer;
      next:Ochered;
   end;
procedure AddElem(var l,r:Ochered;c:integer);
var
  t:Ochered;
begin
  new(t);
  t^.d:=c;
  t^.next:=nil;
  if l=nil then l:=t  else r^.next:=t;
  r:=t;
end;
 
procedure DelFirstOtrElem(var l,r:Ochered);
var
  t,z:Ochered;
begin
  z:=nil;
  if l=nil then exit;//очередь пустая
  t:=l;
  if t^.d<0 then begin //первый элемент <0
    l:=l^.next;
    dispose(t);
    exit;
  end;  
  while t^.next<>nil do begin
    if (t^.next^.d<0) and (z=nil) then z:=t;
    t:=t^.next;
  end;  
  if z<>nil then begin
      if z^.Next=r then r:=z;
      t:=z^.next;
      z^.next:=z^.next^.next;
      dispose(t);
    end;
end;  
  
procedure printochered(l,r:Ochered);
var
  t:Ochered;
begin
  t:=l;
  while t^.next<>nil do begin
    write(t^.d:4);
    t:=t^.next;
  end;  
  writeln;
end;  
var
  l,r:Ochered;
  i:integer;
begin
  randomize;
  for i:=1 to 10 do AddElem(l,r,random(100)-50);
//  write('Очередь:');
  printochered(l,r);
  DelFirstOtrElem(l,r);  //твоя процедура
//  writeln('Полученная очередь:');
  printochered(l,r);
end.

// Вот она, нужная процедура:
procedure DelFirstNegative(var q : Queue<integer>);
begin
  var found := false;
  for var i := 1 to q.Count do
  begin
    var first := q.Dequeue;
    if not found and (first < 0) then found := true else q.Enqueue(first);
  end;  
end;
 
begin
  var q : Queue<integer> := new Queue<integer>(Arr(1, -2, 3, 4, -5, -6, 7, 8));
 
  q.Println;
  DelFirstNegative(q);
  q.Println;
end.