Delphi | Транспонирование комплексных матриц

[MyBrain_0]

Всем здравствуйте!
Люди, будьте любезны, помогите бедному студенту с програмой
Надо сделать транспонирование комплексных матриц на языке Delphi.
Как транспонировать в Delphi наверно и ежу понятно. Но как ввести туда комплексные числа. Сам код транспонирования:

function TransponeMatrix(MPtr : MatrixPtr) : MatrixPtr;

var

TempPtr : MatrixPtr;

i,j : byte;

begin

if (MPtr <> nil) or (MPtr^.MatrixArray <> nil) then with MPtr^ do begin

TempPtr:= CreateMatrix(MatrixCol,MatrixRow);

for i:= 1 to MatrixRow do

for j:= 1 to MatrixCol do

SetMatrixElement(TempPtr,j,i,GetMat rixElement(MPtr,i,j));

TransponeMatrix:= TempPtr;

end else TransponeMatrix:= nil;

end;
Помогите если знаете.
Заранее благодарю)