Даны целочисленные массивы A[1..n] и B[1..m]. Найти какие элементы массива В присутствуют в массиве А

[S.I.D.]

Реализуйте алгоритмы последовательного и бинарного поиска в виде процедур. Даны целочисленные массивы A[1..n] и B[1..m]. Найти какие элементы массива В присутствуют в массиве А. Программа на языке Pascal.
Есть код программы в обычном виде (без бинарного поиска):

uses crt;
const
  nmax = 20;
var
  A, B : array [1..nmax] of integer;
  i, j, n : integer;
begin
ClrScr;
Randomize;
repeat
Write('N = ');
Readln(n);
until n in [1..nmax];
for i := 1 to n do
  begin
  A[i] := random(30) - 10;
  B[i] := random(30) - 10;
  end;
Write('Массив А: ');
for i := 1 to n do Write(A[i], ' ');
Writeln;
Write('Массив B: ');
for i := 1 to n do Write(B[i], ' ');
Writeln;
Write('Ответ: ');
for i := 1 to n do
  for j := 1 to n do
    if A[i] = B[j] then begin Write(A[i], ' '); break; end;
Readln;
end.