Проверить, входит ли список List2 в список List1 и заменить вхождение списком list3

program f4;
uses crt;
type
  prec=^trec;
  trec=record
    mnum:integer;
    mnext:prec;
  end;
 
var
  list,list2,list3:prec;
 
procedure AddToList;
 
var
  i,cn:integer;
  p:prec;
begin
writeln('enter rozmirnist of list:');
readln(cn);
  randomize;
  for i:=1 to cn do begin
    new(p);
    p^.mnum:=random(100)-50;
    p^.mnext:=list;
    list:=p;
  end;
end;
 
procedure AddToList2;
 
var
  i,cn:integer;
  p:prec;
begin
writeln('enter rozmirnist of list:');
readln(cn);
  randomize;
  for i:=1 to cn do begin
    new(p);
    p^.mnum:=random(100)-50;
    p^.mnext:=list2;
    list2:=p;
  end;
end;
 
procedure AddToList3;
 
var
  i,cn:integer;
  p:prec;
begin
writeln('enter rozmirnist of list:');
readln(cn);
  randomize;
  for i:=1 to cn do begin
    new(p);
    p^.mnum:=random(100)-50;
    p^.mnext:=list3;
    list3:=p;
  end;
end;
 
procedure PrintList;
var
  p:prec;
begin
  p:=list;
  while assigned(p) do begin
    write(p^.mnum,' ');
    p:=p^.mnext;
  end;
  writeln;
  readln;
end;
 
procedure PrintList2;
var
  p:prec;
begin
  p:=list2;
  while assigned(p) do begin
    write(p^.mnum,' ');
    p:=p^.mnext;
  end;
  writeln;
  readln;
end;
 
procedure PrintList3;
var
  p:prec;
begin
  p:=list3;
  while assigned(p) do begin
    write(p^.mnum,' ');
    p:=p^.mnext;
  end;
  writeln;
  readln;
end;
 
var
  p:prec;
 
begin
clrscr;
  list:=nil;
  list2:=nil;
  list3:=nil;
  AddToList;
  AddToList2;
  AddToList3;
  PrintList;
  PrintList2;
  PrintList3;
 
end.