Найти количество одинаковых символов в двух односвязных списках, учитывая, что элементы в списках могут повторяться

type ptr= ^s;
     s = record
         Data:integer;
           Next: ptr;
     end;
 
procedure dialog (var n,f: integer);
var q:integer;
begin
  writeln;
  repeat
    write('Number of elements in list ',f,'? ');
    {$I-}
    readln(n);
    q:=ioresult;
    {$I+}
    if (n<1) or (IOresult<>0) then writeln('Error! Enter other number!')
    else break;
  until false;
end;
 
 
Procedure Init(n,f: integer; var u,x : ptr);
Var
  i : integer;
Begin
  u := Nil;
      Begin
        New(x);
        x^.Next := Nil;
        x^.Data := random(20);
        u := x;
    writeln('List ',f);
        for i:=1 to n do
          Begin
            write(x^.Data:4);
            New(x^.Next);
            x := x^.Next;
            x^.Next := Nil;
            x^.Data := random(20);
          End;
      End;
  Writeln;
 
End;
 
Function fx(x,p,x1,p1:ptr):integer;
var k:integer;
Begin
x:=x1;
p:=p1;
k:=0;
 while x<>nil do begin
  while p<>nil do begin
  if x^.data=p^.data then begin
  inc(k);
  p:=nil;
  end
  else
  p:=p^.next;
  end;
  p:=p1;
 x:=x^.next;
end;
fx:=k;
end;
 
procedure delete(n:integer; x1:ptr; var x:ptr);
var x2,x3:ptr;
    i: integer;
begin
x:=x1;
while x<>nil do
 begin
  x2:=x;
  while x2^.next<>nil do
   begin
    if x2^.next^.data=x^.data then
      begin
        x3:=x2^.next^.next;
        dispose(x2^.next);
        x2:=x3;
      end
      else x2:=x2^.next;
   end;
  x:=x^.next;
 end;
end;
 
var m,n,f,i: integer;
    x1,p1,x,p: ptr;
begin
randomize;
f:=1;
dialog(n,f);
init(n,f,x1,x);
f:=2;
dialog(m,f);
init(m,f,p1,p);
i:=0;
delete(n,x1,x);
delete(m,p1,p);
x:=x1;
p:=p1;
writeln('Number of repeatings=  ',fx(x,p,x1,p1));
 
end.