Создать одномерный массив

[Miteud]

Суть вопроса состоит в том, что нужно задать 2 одномерных массива(тип данных - целый, количество не больше 8) в Memo1 И Memo2 соответственно.
Затем вывести одномерный массив в Memo3, созданный из общих элементов первых двух.
Сделал такой код, однако он не фурычит.

{
int n,m,i,j,k;
int a[8],b[8], g[8];
n=Memo1->Lines->Count;
m=Memo2->Lines->Count;

a[i] = StrToInt(Memo1->Lines->Strings[i]);
b[j] = StrToInt(Memo2->Lines->Strings[j]);
for(int i = 0; i<8; i++)
for(int j = 0; j<8; j++)

if(a[i] == b[j]) g[k] = a[i], i++;

Memo3->Lines->Add(IntToStr(g[k]));
}

Можете указать, в каком пути двигаться?

[FataLL]

1) Написанное, выполняется так

for(int i = 0; i<8; i++)
{
  for(int j = 0; j<8; j++)
  {
    if(a[i] == b[j]) g[k] = a[i], i++;
  }
}
Memo3->Lines->Add(IntToStr(g[k]));

2) Неизвестно, чему равно k на момент использования