Вывести элементы, присутствующие в обоих массивах А и В

uses crt;
const max=100;
type mas =array[1..max] of integer;
//функция бинарного поиска элемента в упорядоченном массиве
function poisk(a:mas;n:byte;k:integer):boolean;
var l,r,i:byte;
    f:boolean;
    c:integer;
begin
l:=1;
r:=n;
f:=false;
while (l<=r)and (not f) do
 begin
   c:=(l+r) div 2;
   if k<a[c] then r:=c-1
   else if k>a[c] then l:=c+1
   else f:=true;
 end;
Poisk:=f;
end;
 
var a,b:mas;
    na,nb,m,i,j,x:integer;
    f:boolean;
begin
randomize;
repeat
write('Размер массива А до ',max,' na=');
read(na);
until na in [1..max];
repeat
write('Размер массива B до ',max,' nb=');
read(nb);
until nb in [1..max];
//введем массив А из разных элементов, сортировать его не обязательно
writeln('Массив А:');
m:=1;
a[1]:=random(na+nb);
for i:=2 to na do
 begin
  repeat
   f:=false;
   x:=random(na+nb);
   for j:=1 to m do
   if a[j]=x then f:=true;
  until f=false;
  a[i]:=x;
  m:=m+1;
  write(a[i]:4);
 end;
writeln;
for i:=1 to nb do
b[i]:=random(na+nb);
for i:=2 to nb do //массив В отсортируем для бинарного поиска в нем
 begin
  x:=b[i];
  j:=i-1;
  while (j>=1) and (b[j]>x) do
   begin
    b[j+1]:=b[j];
    j:=j-1;
   end;
  b[j+1]:=x;
 end;
 writeln('Отсортированный массив B:');
 for i:=1 to nb do
 write(b[i]:4);
 writeln;
 writeln('Общие элементы в массивах:');
 x:=0;
 for i:=1 to na do
  begin
   if poisk(b,nb,a[i]) then
    begin
     x:=1;
     write(a[i]:4)
    end;
  end;
 if x=0 then write('Общих элементов нет')
 end.