pomoc w porawieniu kodu (macierz)

Witam, chcę zrobić program w Maple. Program ma wypisać macierz która na przekątnych będzie miała 4,3,2,1

Macierz:=proc(n)
 local A, x;
 x:=n;
 A:=matrix(n, n);
 for i from 1 to n do
  for j from 1 to n do
   if i = j then
   A[i, j]:=x;
   x:=x-1;
   else
   A[i, j]:=0;
  end do;
 end do;
return (A);
end proc;
Macierz(n);
``````matlab