В паскале создала матрицу она содержит нули а как мне сделать так что бы побочная диагональ матрицы содержала 1?

const
n = 3;
var
ar :array[1..n,1..n] of integer;
i,j:integer;
begin
for i := 1 to n do begin
for j := 1 to n do begin
ar[i][j] := 0;
if(j = n-i+1) then ar[i][j] := 1;
write(ar[i][j]:3);
end;
writeln();
end;
end.