Заполнить массив А следующим образом- Pascal(Паскаль)

a)0 0 0 ... 0    б) 1 2 3 ... 10
  0 1 0 ... 0       0 1 2 ... 9
  0 0 2 ... 0       0 0 1 ... 8
  .... .....        ...........
  0 0 0 ... 9       0 0 0 ... 1

const 
n=10;
m=9;
var
a:array[1..n,1..m] of integer;
i,j:integer;
begin

for i:=1 to n do
for j:=1 to m do
if i=j then
a[i,j]:=i-1
else
a[i,j]:=0;


writeln('--------') ; 

for i:=1 to n do
    begin 
        for j:=1 to m do
          begin
             write('  ',a[i,j]:3);
          end;
        writeln();
    end;
    
end.

const 
n=9;
m=9;
var
a:array[1..n,1..m] of integer;
i,j:integer;
begin

for i:=1 to n do
for j:=1 to m do
 if j+1-i>0 then a[i,j]:=j+1-i else a[i,j]:=0;


writeln('--------') ; 

for i:=1 to n do
    begin 
        for j:=1 to m do
          begin
             write('  ',a[i,j]:3);
          end;
        writeln();
    end;
    
end.