Удалить 2-й элемент списка,если он нечетный,иначе этот элемент обнулить

type
  //Тип указателя на элемент списка.
  TPElem = ^TElem;
  //Тип элемента списка.
  TElem = record
    Data : Integer;
    PNext : TPElem;
  end;
 
//Распечатка однонаправленного списка.
function ListToStr(aPList : TPElem) : String;
var
  i : Integer;
begin
  Result := '';
  if aPList = nil then begin
    Result := 'Список пуст.';
    Exit;
  end;
 
  i := 0;
  while aPList <> nil do begin
    Inc(i);
    if i > 1 then Result := Result + ', ';
    Result := Result + IntToStr(aPList^.Data);
    aPList := aPList^.PNext;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  P1, P2, PElem : TPElem;
  i : Integer;
  S : String;
begin
  //Начальная инициализация списка.
  P1 := nil; //Указатель на первый элемент списка.
  P2 := nil; //Указатель на последний элемент списка.
 
  //Читаем числа из Мемо1 и добавляем их в список.
  //Предполагается, что каждое число расположено на отдельной строке.
  for i := 0 to Memo1.Lines.Count - 1 do begin
    S := Memo1.Lines[i];
    if S = '' then Continue; //Пропуск пустых строк.
    New(PElem);
    PElem^.Data := StrToIntDef(S, 0);
    PElem^.PNext := nil;
    if P2 = nil then P1 := PElem
    else P2^.PNext := PElem;
    P2 := PElem;
  end;
 
  Memo2.Lines.Add('--------------------------------------------------');
  Memo2.Lines.Add('Составлен список:');
  Memo2.Lines.Add(ListToStr(P1));
 
  //Решение задачи.
  if (P1 <> nil) and (P1^.PNext <> nil) then begin
    PElem := P1^.PNext;
    if PElem^.Data mod 2 = 0 then
      PElem^.Data := 0
    else begin
      P1^.PNext := P1^.PNext^.PNext;
      Dispose(PElem);
    end;
  end;
 
  Memo2.Lines.Add('Список после обработки:');
  Memo2.Lines.Add(ListToStr(P1));
 
  //Удаление списка из памяти.  
  P2 := nil;
  while P1 <> nil do begin
    PElem := P1;
    P1 := P1^.PNext;
    Dispose(PElem);
  end;
end;