Сформировать квадратную матрицу порядка n по заданному образцу — Pascal(Паскаль)

n 0 0 … 0 0 0
n-1 n 0 … 0 0 0
n-2 n-1 n … 0 0 0
……………………………
2 3 4 … n-1 n 0
1 2 3 … n-2 n-1 n

uses crt;
var a:array[1..20,1..20]of byte;
    n,i,j:byte;
begin
clrscr;
write('n=');
readln(n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<=i then a[i,j]:=n-i+j
    else a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln;
  end;
readln
end.