Образовать третий массив из элементов, встречающихся в обоих массивах.

Procedure TForm1.Button1Click(Sender: TObject);
Var
  i,j,N,M:Integer;
Begin
  M:=StrToInt(Edit2.Text);
  N:=StrToInt(Edit3.Text);
  StringGrid1.ColCount:=M+1;
  StringGrid1.RowCount:=N+1;
//==========================================
  StringGrid1.Cells[0,0]:=' i, j';//Вывод индексов на нулевых строка и столбцах
  For i:=1 To M+1 Do
    StringGrid1.Cells[0,i]:=IntToStr(i);
  For j:=1 To N+1 Do
    StringGrid1.Cells[j,0]:=IntToStr(j);
//==========================================
  For i:=1 To M+1 Do
      For j:=1 To N+1 Do
        Begin
          A1[i,j]:=Random(89)+10;
          StringGrid1.Cells[i,j]:=IntToStr(A1[i,j]);
        End;
End;
 
procedure TForm1.Button2Click(Sender: TObject);
Var
  i,j,N,M:Integer;
Begin
  M:=StrToInt(Edit4.Text);
  N:=StrToInt(Edit5.Text);
  StringGrid2.ColCount:=M+1;
  StringGrid2.RowCount:=N+1;
//==========================================
  StringGrid2.Cells[0,0]:=' i, j';
  For i:=1 To M+1 Do
    StringGrid2.Cells[0,i]:=IntToStr(i);
  For j:=1 To N+1 Do
    StringGrid2.Cells[j,0]:=IntToStr(j);
//==========================================
  For i:=1 To M+1 Do
      For j:=1 To N+1 Do
        Begin
          A2[i,j]:=Random(89)+10;
          StringGrid2.Cells[i,j]:=IntToStr(A2[i,j]);
        End;
End;
 
Procedure TForm1.Button3Click(Sender: TObject);
Var
  Arr1,Arr2,Res:Set Of Byte;
  i,j,M,N:Integer;
Begin
  Arr1:=[];
  Arr2:=[];
  Res:=[];
//==== работаем с первым массивом ====
  M:=StrToInt(Edit2.Text);
  N:=StrToInt(Edit3.Text);
  For i:=1 To M+1 Do
    For j:=1 To N+1 Do
      Include(Arr1,A1[i,j]);
//==== работаем со вторым массивом ====
  M:=StrToInt(Edit4.Text);
  N:=StrToInt(Edit5.Text);
  For i:=1 To M+1 Do
    For j:=1 To N+1 Do
      Include(Arr2,A2[i,j]);
  Res:=Arr1*Arr2;
  For i:=10 To 99 Do
    If i In Res Then
      Edit1.Text:=Edit1.Text +' '+IntToStr(i);
End;