请问这样的代码如何写？(50分)

有两组数据，第一组如：22,32,873,231,23
第二组如: 334,231,22,2883,2
现在想要将两组数据进行比对，找出其中相同的数字的个数及具体是哪几个数相同，
不论顺序是否相同，上面的这两组数据中有两个数是相同的，它们是231,22
请问这样的代码如何写？
不要空谈理论，请写出具体实现以上功能的代码。

对每一组先进行排序，再由大到小进行比较就是，相同的列出来。
这对数量大的作法，

如只有这几个，就直接进行组合方式比较了，
看两两有多少个组合，每一组合中有相同的就列出了

这就不用写代码了吧，现在事比较多，没时间写这个

瞧，我多有闲心：procedure TForm1.Button1Click(Sender: TObject);
var
x1,x2,x3:tstringlist;
icount:integer;
begin
x1:=tstringlist.Create;
x2:=tstringlist.Create;
x3:=tstringlist.Create;
x1.Add('22');
x1.add('32');
x1.add('33');
x1.add('35');
x1.Add('39');
x2.add('33');
x2.add('30');
x2.add('32');
for icount:=0 to x1.count-1 do
begin
if (x2.IndexOf(x1.Strings[icount])>-1) then
begin
x3.Add(x1.Strings[icount]);
end

end;
for icount:=0 to x3.count-1 do
begin
showmessage(x3.Strings[icount]);
end;

x1.Free;
x2.free;
x3.Free;


end;

end.

用数组更合适，如项目不定，可用动太数组。
爱用TStrings之类的，也没什么，不过……

程云说的理论比我提的这个问题还难懂！
谢谢张剑波同志的帮助！