Почему функция не возвращает никакое значение?

[Тупой]

Я в делфи не особо понимаю, поэтому прошу о помощи. Дело вот в чем:
у меня есть функция

PHP код:

{Tb:=array of array of real; Это определено несколько выше}
function matrTransp(var a: Tb):Tb;
var i,j:integer;
tmp: real;
b:Tb;
begin
if length(a[0])<>length(a) then
begin
  setlength(b,Length(a[0]));
  for i := 0 to length(b) - 1 do
    setlength(b[i],Length(a));
  for i := 0 to length(a) - 1 do
     for j := 0 to length(a[0]) - 1 do
      begin
        tmp:=a[i][j];
        b[j][i]:=tmp;
      end;
  Result:=b;
Exit;
end;

for i := 0 to length(a) - 1 do
  for j := 0 to length(a[0]) - 1 do
  begin
    tmp:=a[i][j];
    a[i][j]:=a[j][i];
    a[j][i]:=tmp;
  end;
Result:=a;
end; 


по задумке, эта функция должна транспонировать матрицу. В принципе она с этим справляется, только вот при её вызове из другой функции

PHP код:

a:=matrtransp(a); 


матрица a не меняется.
Наверное я спрашиваю какие то очевидные основы, но Яндекс ответа на мой вопрос не дал.
В чем причина то?

[Тупой]

все, разобрался. Дело в том, что матрица транспонировалась 2 раза, отчего складывалось ощущение, что функция не отрабатывает.