Заполнение массива по диагонали

for i:=1 to n do 
    for j:=i to n do begin
 
    end;

const
  n = 10;
 
var
  Mas: array[1..n, 1..n] of word;
 
begin
  var Shift := 0;
  var Count := 1;
  while n >= Shift + 1 do
  begin
    var j := 1;
    for var i := 1 to n - Shift do
    begin
      Mas[j, i + Shift] := Count; //для заполнения верхнего треугольника по диагонали
      //Mas[i + Shift, j] := Count; для заполнения нижнего треугольника по диагонали
      inc(Count);
      inc(j);
    end;
    inc(Shift);
  end;
end.

var a:array[1..10,1..10]of integer;
n,k,i,j,o:integer;
BEGIN
readln(n);
o:=1;
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
if j=i+k-1 then begin a[i,j]:=o; o:=a[i,j]+1;  end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5,' ');
writeln;
end;
END.

var a:array[1..10,1..10]of integer;
    n,k,i,j,o:integer;
begin
repeat
write('Введите размер матрицы от 3 до 10 n=');
readln(n);
until n in [3..10];
o:=1;
for k:=1 to n do
 begin
  j:=k;
  i:=1;
  while j<=n do
   begin
    a[i,j]:=o;
    inc(o);
    inc(i);
    inc(j)
   end;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end.