Транспонирование матрицы

[Niven]

Прошу помощи с программой для транспонирования матрицы из Memo1 с выводом в Memo2.
У меня такая идея:
j-текущий считываемый символ;
k-текущая строка исходной матрицы;
z-число столбцов в матрице;
ns-число "окончаний строки", то есть строк;
i-текущая строка транспонированной матрицы;
Весь код на кнопке


int j = 1, k = 0; int z = 1, ns = 0;
for(int i = 1; i < Matrix->Lines->Strings[0].Length(); i++) if(Matrix->Lines->Strings[0][i] == ' ') z++;

for(int i = 0; i < z; i++){

if(ns == Matrix->Lines->Count) break;
while(1){
if(Matrix->Lines->Strings[k][j] == ' '){ j++; break;}
TMatrix->Lines->Strings[i] = TMatrix->Lines->Strings[i] + Matrix->Lines->Strings[k][j];
j++;
if(Matrix->Lines->Strings[k][j] == '\n'){ j=1; i=0; k++; ns++; break;}
}
}