[Alegun]

Стесняюсь спросить, а зачем тогда двумерный массив нужен, в другую размерность нужно результат положить что ли?

З.Ы. And then there was another influence...

Ну да ладно, не хотите обучаться - ваше дело, потом аукнется, да будет поздно. Вот вам немного говнокода, через одномерный массив, на форму нужно кинуть кнопку и мемо и скопипастить вот это

Код:

 procedure TForm1.Button1Click(Sender: TObject);
var
 m: array of string;
 i: integer;
 s1, s2: string;

begin
 // Для примера
 SetLength(m,4);
 m[0]:='123';
 m[1]:='456';
 m[2]:='789';
 m[3]:='356';

 for i:= Low(m) to High(m) do Memo1.Lines.Add(m[i]);

 for i:= Low(m) to High(m) mod 2 do
  begin
   s1:= m[i];
   s2:= m[(High(m) mod 2) + i+1];
   m[i]:= s2;
   m[(High(m) mod 2) + i+1]:= s1
  end;

 Memo1.Lines.Add('');

 for i:= Low(m) to High(m) do Memo1.Lines.Add(m[i]);

end;