Указатели в Паскале

[ARSENAL]

написать программу которая удаляет из линейного списка входной последовательности целых чисел первый отрицательный элемент. Помогите, пожалуйста, написать программу.Начал вроде, а дальше не могу
program laba8;

Код: Выделить всё

Type T=^TABL;
     TABL=record;
           D: integer;
           L:T;
          End;
var
  k,F,W:T;
  M,N,i :integer;
begin
  write('Количество элементов =');
  readln(N);
  for i:=1 to N do
    begin
      New(W);
      Readln(W^.D);
      W^. L:= F;
      F:= W;
   end;
  W:= F;
  while W<> nil do
    begin
      if W^.D<0 then M:=W^.D;

      W:= W^.L;
    end;
   writeln;
  writeln('Первый отрицательный элемент = ',M);
   W:= F;
   while (W<> nil) and (W^.D<> M) do
    begin
      k:= W;
      W:= W^.L;
    end;
  k:= W^.L;
  dispose(W);