Сформировать новый линейный список однонаправленный список, содержащий только нечетные элементы

uses
  crt;
const
  MaxListLen = 30;
  MaxNum     = 30;
type
  PList = ^TList;
  TList = record
            data : integer;
            next : PList;
          end;
var
  L1, L2, L3, L4, ptmp1, ptmp2 : PList;
  count : integer;
 
procedure CreateList(L : PList);
var
  ptmp : PList;
  i, n : integer;
begin
  n:=random(MaxListLen);
  for i:=1 to n do
    begin
      L^.data:=random(MaxNum);
      if n<>i then
        begin
          new(L^.next);
          L:=L^.next;
          L^.next:=nil;
        end
    end;
end;
 
function InList(L : PList; data : integer) : boolean;
begin
  repeat
    if L^.data=data then
      begin
        InList:=true;
        exit;
      end;
    L:=L^.next;
  until L=nil;
  InList:=false;
end;
 
 
 
procedure ViewList(L : PList);
begin
  repeat
    write(L^.data,' ');
    L:=L^.next;
  until L=nil;
 
  writeln;
end;
 
BEGIN
  clrscr;
  randomize;
 
  new(L1);
  CreateList(L1);
  ViewList(L1);
 
  new(L2);
  CreateList(L2);
  ViewList(L2);
 
  new(L3);
  CreateList(L3);
  ViewList(L3);
 
  new(L4);
  ptmp1:=L4;
  count:=0;
  repeat
    if ((L1^.data mod 2 <> 0) and InList(L2,L1^.data) and not InList(L3,L1^.data)) then
      begin
        L4^.data:=L1^.data;
        new(L4^.next);
        ptmp2:=L4;
        L4:=L4^.next;
        L4^.Next:=nil;
        inc(count);
      end;
    L1:=L1^.next;
  until L1=nil;
 
  if count=0 then
      writeln('no elements')
  else
    begin
      dispose(L4);
      ptmp2^.next:=nil;
      L4:=ptmp1;
      ViewList(L4);
    end;
END.