Удалить из списка L все четные положительные элементы

uses crt;
type uk=^rec;
     rec=record
     x:integer;
     adr:uk
         end;
var first,p0,p1,p2:uk;
f:text;
 
procedure SOZD_SPIS;
begin assign(f,'введи файл');
reset(f);
first:=nil;
while not seekeof(f) do
  begin new(p1);
    read(f,p1^.x);
    if first=nil then first:=p1
    else p2^.adr:=p1;
    p2:=p1;
  end;
  p2^.adr:=nil;
close(f);
end;
 
procedure VIV_SPIS;
begin
p1:=first;
  while p1<>nil do
  begin
    write(p1^.x,' ');
    p1:=p1^.adr
  end;
writeln;
readkey
end;
 
procedure DEL_CHET_POL_EL;
begin
p1:=first;
while p1<>nil do
      begin
      If p1^.x mod 2 <>0 then
         begin
         p0:=p1;
         end
         else
         p0^.adr:=p1^.adr;
      p1:=p1^.adr;
      end;
end;
BEGIN
SOZD_SPIS;VIV_SPIS;DEL_CHET_POL_EL;
VIV_SPIS;
readkey
end.

procedure PERV_VHOZHD;
begin
p1:= first;
  while p1<>nil do
  begin
    p0:=p1^.adr;
    while (p0<>nil) and (p1^.x=p0^.x) do
    begin
      if p0^.adr=nil then p2:=p0;
      p:=p0; p0:=p0^.adr; Dispose(p); p1^.adr:=p0;
    end;
    p1:= p1^.adr;
  end;
end;

procedure PERV_VHOZHD;
var p: uk; { <--- }
begin
  p1 := first;
  while p1 <> nil do
  begin
    p0 := p1^.adr;
    while (p0 <> nil) and (p1^.x = p0^.x) do
    begin
      if p0^.adr = nil then p2 := p0;
      p := p0; p0 := p0^.adr; Dispose(p); p1^.adr := p0;
    end;
    p1 := p1^.adr;
  end;
end;