Даны два массива. Найти элементы, принадлежащие и тому и другому массиву

member x[]=False
member x (y:xs)|x==y   =True
member x(y:xs)|otherwise  =member x xs
 
compl [] a=[]
compl (x:xs) a|member x a==True   =x:compl xs a
                   |otherwise   =compl xs a
Main> compl [1,2,5,3,20,9] [4,6,9,4,20]
[20,9]

const
len = 30;
var
A:array[0..len]of Integer;
B:array[0..len]of Integer;
C:array[0..len] of Integer;
p:integer;
 
procedure GetElem;
var
i,j:Integer;
begin
 for i:= 0 to len do
  for j:= 0 to len do
    if A[i] = b[j] then
    begin
        C[p]:= A[i];
        inc(p);
    end;
 for i:= 0 to p do
writeln(C[i]);
end;
 
 
var
i:Integer;
begin
randomize;
for i:= 0 to len do
begin
   A[i]:= random(70);
   B[i]:= random(70);
end;
GetElem;
  readln;
end.

const n=5;
type mas=array [1..n] of integer;
var a,b,m:mas;
procedure ma(a,b:mas; var m:mas; var k:integer);
var i,j:integer;
begin
    k:=0;
    for i:=1 to n do
        for j:=1 to n do
            if a[i]=b[j] then
                begin
                    inc(k);
                    m[k]:=a[i];
                    j:=n
                end;
end;