[Страдалецъ]

И с чего вы решили, что эти задачи похожи? Типа и там и тут матрица?
Для Дельфи это все можно свести к работе с одним классом TStringList:

Код:

Const
  Matrix: Array[1..3,1..3] of String = (('Иванов','Петров','Сидоров'),
                                        ('Сидоров','Иванов','Петров'),
                                        ('Петров','Козлов','Семенов'));
Var
  List: TStringList;
  i,j: Integer;
begin
 List := TStringList.Create;
 List.Duplicates := dupIgnore;
 List.Sorted := True;
 for i := 1 to 3
 do for j := 1 to 3
    do List.Add(Matrix[i,j]);
 Memo1.Lines := List;
end;