Создание, вывод и обработка линейных однонаправленных списков - Turbo Pascal

Формулировка задачи:

Задача описать процедуру: 1)создания динамического линейного списка, выбирая числа из текстового файла; 2)вывода динамического линейного списка; 3)обработка динамического списка по алгоритму. 4)в непустой список L, элементы которого упорядочены по неубыванию (т.е. по возрастанию или равные), новый элемент Е так, чтобы сохранилась упорядоченность; 5)из списка L второй отрицательный элемент, если такой есть; Вообщем первые четыре пункта я выполнил ,но я не представляю как выполнить 5 пункт. Подскажите, пожалуйста как примерно это реализовать? вот весь код:

ses
  crt;
 
type
 
  uk = ^rec;
  rec=record
    chis: integer;
    adr: uk;
  end;
 
var
  p1, p2, p3, first: uk;
  f: text;
  q, s, k: integer;
 
procedure SOZD_SPIS;
begin
 
  reset(f);
  first := nil;
  while not seekeof(f) do
  begin
    new(p1);
    readln(f, p1^.chis);
    if first = nil
      then first := p1
    else p2^.adr := p1;
    p2 := p1;
  end;
  p2^.adr := nil;
 
  writeln('=============');
  writeln('SPISOK SOZDAN');
  readkey;
end;
 
procedure VIVOD_SPIS;
begin
  writeln;
  p1 := first;
  while p1 <> nil do
  begin
    write(p1^.chis, ' ');
    p1 := p1^.adr;
  end;
readkey;
end;
 
procedure SORT_SPIS;
var buf:integer;pris:boolean;
begin  
 repeat pris:=true;
 p1:=first;
  while p1^.adr<>nil do begin
  if p1^.chis>p1^.adr^.chis then
  begin 
   buf:=p1^.chis;
   p1^.chis:=p1^.adr^.chis;
   p1^.adr^.chis:=buf;
   pris:=false;
   end;
   p1:=p1^.adr;end;
   until pris;
   writeln('===================');
   writeln('SPISOK OTSORTIROVAN');
   readkey;
   end;

procedure DOBAV;
var
  d: uk;pris:boolean;
begin
  new(d);
  writeln('VVEDITE CHISLO');
  readln(d^.chis);
  d^.adr := nil;
 
  p1 := first;
  pris:=true;
 
  while (p1 <> nil) and pris do

    if p1^.chis >= d^.chis then
    begin
      pris:=false;
      if p1 = first then
      begin
        d^.adr := first;
        first := d;
      end
        else
      begin
 
        d^.adr := p2^.adr;
        p2^.adr := d;
      end
    end
      else
    begin
      p2 := p1;
      p1 := p1^.adr;
    end;

  if pris then p2^.adr := d;
  writeln('======================');
  writeln('NOVOE CHISLO DOBAVLENO');
  readkey;
end;
 
procedure DELETESECOND;
var k:integer;pris:boolean;
begin
k:=0;
p1:=first;

while (p1<>nil)  do begin
 
if (p1^.chis<0)  then 
if p1^.adr^.chis<0 then begin
p1^.adr:=p1^.adr^.adr;
dispose(p1^.adr^.chis);
p1:=p1^.adr;
end;
end;

end;

begin
  assign(f, 'D:\Spisok.txt');
  repeat
    clrscr;
    writeln;
    writeln('=======MENU=======');
    writeln;
    writeln('1 - SOZDANIE SPISKA');
    writeln('2 - VIVOD SPISKA');
    writeln('3 - SORTIROKLA PO VOZRASTANIU');
    writeln('4 - DOBAVLENIE V SOOTVETSTVII S PORYADKOM');
    writeln('5 - UDALENIE VTOROGO OTRICATELNOGO');
    writeln('6 - EXIT');
    case readkey of
      '1': SOZD_SPIS;
      '2': VIVOD_SPIS;
      '3': SORT_SPIS;
      '4': DOBAV;
      '5': DELETESECOND;
      '6': exit;
    end;
  until false;
end.

Решение задачи: «Создание, вывод и обработка линейных однонаправленных списков»

textual
                            Листинг программы 
                        

                            в цикле проходите по списку от начала до конца
в теле цикла - если переменная счетчик равна 2, то удаляете элемент
в теле цикла -  если элемент отрицательный, то временную переменную счетчик увеличиваете на 1
                        