ДСД. Линейные списки

program List;
type
  PList=^TList;
  TList=record
            info:integer;
            next:PList;
          end;
var
  head:PList;
{vivodit spisok so slu4aynimi elementami}
procedure Spisok(head:PList);
var
  p,q:Plist;
  n,i:integer;
begin
  writeln('vvedite koli4estvo elementov');
  readln(n);
  randomize;
  new(head);
  head^.next:=nil;
  p:=head;
  for i:=1 to n do
  begin
    new(q);
    q^.info:=random(100);
    q^.next:=nil;
    p^.next:=q;
    p:=q;
  end;
  p:=head^.next;
  while p<>nil do
  begin
    write(p^.info:6);
    p:=p^.next;
  end;
  writeln;
end;
{...}
Begin
  Spisok(head);
  {...}
  Spisok(head);
End.

uses crt;
type
PNode=^Node;
Node=record
 data:integer;
 next:PNode;
end;
var
HeadP1,HeadP2,HeadP3,tm:PNode;
i:integer;
 
procedure AddToSpis(var HeadP:PNode;k:integer);
var
tmp:PNode;
begin
  if HeadP=nil then
    begin
      New(HeadP);
      tmp:=HeadP;
    end
  else
     begin
       tmp:=HeadP;
         while tmp^.next <> nil do
           tmp:=tmp^.next;
         New(tmp^.next);
         tmp:=tmp^.next;
     end;
  tmp^.next:=nil;
  tmp^.data:=k;
end;
procedure Print(HeadP:PNode);
begin
   while HeadP <> nil do
     begin
       write(HeadP^.data:4);
       HeadP:=HeadP^.next;
     end;
end;
procedure FreeSpis(var HeadP:PNode);
var
tmp:PNode;
begin
  while HeadP <> nil do
     begin
       tmp:=HeadP;
       HeadP:=HeadP^.next;
       Dispose(tmp);
     end;
end;
function Search(p:PNode;k:integer):PNode;
begin
   if p=nil then
     begin
       Search:=nil;
       exit;
     end;
   if p^.data=k then
     begin
       Search:=p;
       exit;
     end;
       while (p <> nil) and (p^.data <> k) do
         p:=p^.next;
   Search:=p;
end;
procedure FormThird(var Head2,Head3:PNode;Head1:PNode);
var
tmp,tmp1:PNode;
begin
  while Head1 <> nil do
    begin
      tmp:=Search(Head2,Head1^.data);
      if tmp <> nil then
        AddToSpis(Head3,Head1^.data);
       Head1:=Head1^.next;
    end;
 
 
end;
 
begin
  HeadP1:=nil;
  HeadP2:=nil;
  HeadP3:=nil;
     writeln('Заполнение 1-го списка,признак окончания 99');
     read(i);
    repeat
      AddToSpis(HeadP1,i);
      read(i);
    until i=99;
    writeln;
    writeln('Заполнение 2-го списка,признак окончания 99');
     read(i);
    repeat
      AddToSpis(HeadP2,i);
      read(i);
    until i=99;
    ClrScr;
  writeln('Сформированный список: первый ');
  Print(HeadP1);
  writeln;
  writeln('Сформированный список: второй ');
  Print(HeadP2);
  FormThird(HeadP2,HeadP3,HeadP1);
  writeln;
  writeln('Сформированный список: третий ');
  Print(HeadP3);
  FreeSpis(HeadP1);
  FreeSpis(HeadP2);
  FreeSpis(HeadP3);
end.

uses crt;
type
PNode=^Node;
Node=record
 data:integer;
 next:PNode;
end;
var
HeadP1,HeadP2,HeadP3,tm:PNode;
i:integer;
 
procedure AddToSpis(var HeadP:PNode;k:integer);
var
tmp:PNode;
begin
  if HeadP=nil then
    begin
      New(HeadP);
      tmp:=HeadP;
    end
  else
     begin
       tmp:=HeadP;
         while tmp^.next <> nil do
           tmp:=tmp^.next;
         New(tmp^.next);
         tmp:=tmp^.next;
     end;
  tmp^.next:=nil;
  tmp^.data:=k;
end;
procedure Print(HeadP:PNode);
begin
   while HeadP <> nil do
     begin
       write(HeadP^.data:4);
       HeadP:=HeadP^.next;
     end;
end;
procedure FreeSpis(var HeadP:PNode);
var
tmp:PNode;
begin
  while HeadP <> nil do
     begin
       tmp:=HeadP;
       HeadP:=HeadP^.next;
       Dispose(tmp);
     end;
end;
function Search(p:PNode;k:integer):PNode;
begin
   if p=nil then
     begin
       Search:=nil;
       exit;
     end;
   if p^.data=k then
     begin
       Search:=p;
       exit;
     end;
       while (p <> nil) and (p^.data <> k) do
         p:=p^.next;
   Search:=p;
end;
procedure FormThird(var Head2,Head3:PNode;Head1:PNode);
var
tmp,tmp1:PNode;
begin
  while Head1 <> nil do
    begin
      tmp:=Search(Head2,Head1^.data);
      if tmp <> nil then
        begin
          tmp1:=Search(Head3,Head1^.data);
            if tmp1=nil then
              AddToSpis(Head3,Head1^.data);
         end;
       Head1:=Head1^.next;
    end;
 
 
end;
 
begin
  HeadP1:=nil;
  HeadP2:=nil;
  HeadP3:=nil;
     writeln('Заполнение 1-го списка,признак окончания 99');
     read(i);
    repeat
      AddToSpis(HeadP1,i);
      read(i);
    until i=99;
    writeln;
    writeln('Заполнение 2-го списка,признак окончания 99');
     read(i);
    repeat
      AddToSpis(HeadP2,i);
      read(i);
    until i=99;
    ClrScr;
  writeln('Сформированный список: первый ');
  Print(HeadP1);
  writeln;
  writeln('Сформированный список: второй ');
  Print(HeadP2);
  FormThird(HeadP2,HeadP3,HeadP1);
  writeln;
  writeln('Сформированный список: третий ');
  Print(HeadP3);
  FreeSpis(HeadP1);
  FreeSpis(HeadP2);
  FreeSpis(HeadP3);
end.