Массивы

[dxn]

Всем привет, помогите разобраться, что нужно поменять в коде, чтобы он работал для этих условий:
http://s009.radikal.ru/i309/1510/e0/7da3c167c1b2.jpg
http://s004.radikal.ru/i205/1510/1e/79531996cc52.jpg

Сам код:

var
i,n,j:integer;
a:array[1..100,1..100] of byte;
begin
writeln('Vvedite n');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
if (n-j+1)>=i then a[i,j]:=i
else
a[i,j]:=0;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]);
end;
writeln;
end;
end.