Пожалуйста, помогите решить данный массив в паскале

begin

 var n := ReadInteger();

 var a := MatrGen(n, n, (i, j)-> (1 - i + j) * Ord(j >= i));

 a.Println;

end.