Поиск одинаковых элементов в 2-ух массивах

[Mixasnt]

Есть задача: "Сформировать массив, из повторяющихся элементов 2-ух массивов"
Суть алгоритма поиска понимаю, но вот с исполнением что-то не то.

//заполним массивы
for i := 1 to 12 do
begin
 a[i]:=strtoint(smemo1.Lines[i-1]);
 b[i]:=strtoint(smemo2.Lines[i-1]);
end;
 
 
k:=1;
for i := 1 to 12 do
begin
  for j := 1 to 12 do
  begin
    if a[i]=b[j] then
    begin
      s[k]:=a[i];
      inc(k);
    end;
  end;
end;

[Базиля]

1) Вам нужно также проверять на принадлежность элементов массива A массиву S.
Ведь возможна такая ситуация, что мы уже сверяли подобное значение
Не будь подобного сравнения, мы просто будем заносить в массив S повторяющиеся элементы.
Что у Вас собственно сейчас и происходит.
2) После нахождения элемента массива A равному одному из элементов массива B - прекращайте дальнейший поиск, в этом нет никакого смысла.

[Mixasnt]

Да, Вы правы, нужно ввести дополнительное условие.
Суть задачи - сформировать массив из повторяющихся элементов, поэтому предотвращать поиск - не подходит под условие.
Проблема в том, что в массив s, при прохождении циклов заносится всего 1 переменная, а повторов гораздо больше, не могу понять в чем ошибка.
Самое интересное, что если вместо "команды записать в массив s" я пишу showmessage(inttostr(a[i]) - все повторяющиеся элементы выводятся корректно.
Почему так, я не знаю.

//массивы описаны так:
Var
A,s,b: array [1..12] of integer;

[Базиля]

Хорошо, если нужно именно ВСЕ повторяющиеся элементы записывать, тогда то, о чем я писал, попросту отпадает.

Тогда размерность массива s должна равняться размерности массивов a и b вместе взятых.

Самое интересное, что если вместо "команды записать в массив s" я пишу showmessage(inttostr(a[i]) - все повторяющиеся элементы выводятся корректно.
Почему так, я не знаю.

Очень интересно....
Можете приложить проект?
Думаю так быстрее справимся с проблемой.