[Nyctos Kasignete]

Код:

for i := 1 to 9 do
  for j := 0 to 163 do
    if A[i] = B[j] then
    begin
      A[i] = j;
      Break;
    end;

Но при этом если есть повторяющиеся числа в массиве B, то в массив A запишется индекс только первого из них.
Если нужно получить индекс последнего в случае наличия повторяющихся элементов, то внутренний цикл можно запустить в обратную сторону (for j := 163 downto 0 do...)