50 поинтов!! Сформируйте матрицу на Паскале

begin
  var n:=ReadInteger('n=');
  var a:=new integer[n,n];
  for var j:=0 to n-1 do begin
    for var i:=0 to j-1 do a[i,j]:=i+1;
    for var i:=j to n-1 do a[i,j]:=j+1
    end;
  a.Println(3)
end.


n= 13
  1  1  1  1  1  1  1  1  1  1  1  1  1
  1  2  2  2  2  2  2  2  2  2  2  2  2
  1  2  3  3  3  3  3  3  3  3  3  3  3
  1  2  3  4  4  4  4  4  4  4  4  4  4
  1  2  3  4  5  5  5  5  5  5  5  5  5
  1  2  3  4  5  6  6  6  6  6  6  6  6
  1  2  3  4  5  6  7  7  7  7  7  7  7
  1  2  3  4  5  6  7  8  8  8  8  8  8
  1  2  3  4  5  6  7  8  9  9  9  9  9
  1  2  3  4  5  6  7  8  9 10 10 10 10
  1  2  3  4  5  6  7  8  9 10 11 11 11
  1  2  3  4  5  6  7  8  9 10 11 12 12
  1  2  3  4  5  6  7  8  9 10 11 12 13