Изменения
была ошибка
'''if''' a[i] > b[j] '''and''' d[i - 1][j] > best <font color=green>// при следующем равенстве a[i] == b[j']</font>
best = d[i - 1][j] <font color=green>// в best будет храниться "лучший" элемент</font>
ind = j <font color=green>// b[ind] < b[j'] и d[i-1][ind] <tex> \rightarrow </tex> max</font>
<font color=green>// восстановление (по массиву b)</font>
pos = 1 <font color=green>// ищем лучший элемент d[n][pos] <tex> \rightarrow </tex> max</font>