Получить квадратную матрицу по правилу

const 
  nmax=10;
type
  Tmatrix=array[1..nmax,1..nmax] of integer;
var
  a:Tmatrix;
  i,j,n:integer;
begin
  write('n=');
  readln(n);
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if j<=n-i+1 then
            a[i,j]:=j+i-1
          else
            a[i,j]:=0;
          write(a[i,j]:4);
        end;
      writeln;
    end;
end.

const
  n = 5;
var
  Matr: array[1..n, 1..n] of integer;
  i, j: byte;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if (i = j) then Matr[i, j]:=1
        else Matr[i, j]:=0;
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
end.

type matr=array[1..100,1..100] of byte;
var i,j,n:integer;
begin
write('n=');
readln(N);
for i:=1 to N do
  for j:=1 to N do
   if i=j then A[i,j]:=1 else A[i,j]:=0;  
for i:=1 to N do
begin
  for j:=1 to N do
   write(A[i,j],'  ');
  writeln;
end;
readln;
end.