Работа с дин.памятью, списки

uses crt;
type Pnobe=^Tnobe;
 
Tnobe=record
data:integer;
next:Pnobe;
end;
 
procedure zad(const n:integer; var pp,pp1:pnobe);
var i1:integer;
begin
 pp:=nil;
  for i1:=1 to n do
   begin
       new(pp1);
       pp1^.next:=pp;
       pp1^.data:=random(10);
       pp:=pp1;
   end;
end;
 
procedure vivod(pp,pp1:pnobe);
begin
 pp1:=pp;
  while pp1<>nil do
   begin
     write(pp1^.data,' ');
     pp1:=pp1^.next;
   end;
{ writeln;}
 
end;
 
procedure outrapit(ppa,ppa1,ppb1:pnobe; var ppa2,ppb2,ppc,ppc1:pnobe);
var ap:byte;
begin
ap:=0;
ppa2:=ppa1;
ppb2:=ppb1;
while (ppa1<>nil) do
  begin
     ppb1:=ppb2;
     ppa:=ppa1^.next;
     while (ppb1<>nil) do
         begin
           if ppa1^.data=ppb1^.data then
           begin
             break;
           end;
          ppb1:=ppb1^.next;
          if (ppb1=nil) then
              if (ap=0) then
               begin
                ap:=1;
                ppc1:=nil;
                new(ppc);
                ppc^.next:=ppc1;
                ppc^.data:=ppa1^.data;
               end
                       else
               begin
                ppc1:=ppc;
                new(ppc);
                ppc^.next:=ppc1;
                ppc^.data:=ppa1^.data;
               end;
         end;
      ppa1:=ppa;
  end;
end;
 
{procedure del(pp1:pnobe);
var pp:pnobe;
begin
  pp:=pp1;
  while pp<>nil do
   begin
    pp:=pp1^.next;
    dispose(pp1);
   end;
end;}
 
 
var pa,pb,pc,pa1,pb1,pc1,pb2,pa2:Pnobe;
begin
clrscr;
randomize;
 
zad(5,pa1,pa);
vivod(pa1,pa);
writeln;
zad(5,pb1,pb);
vivod(pb1,pb);
writeln;
{-----------------------------------}
 
outrapit(pa,pa1,pb1,pa2,pb2,pc,pc1);
 
{del(pa2);
del(pb2);}
vivod(pc1,pc);
 
{outrapit(pb,pb1,pa1,pb2,pa2,pc,pc1);
vivod(pc1,pc);}
readkey;
end.