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

uses crt;
var
a:array[1..9,1..9] of integer;
i,j,n:integer;
begin
write('Ââåäèòå ïîðÿäîê ìàòðèöû: '); readln(n);
for i:=1 to n do
  for j:=i to n do
    a[i,j]:=j-i+1;
for i:=2 to n do
 for j:=1 to i-1 do
  a[i,j]:=i-j+1;
for i:=1 to n do
 begin
  for j:=1 to n do write(a[i,j]:2);
  writeln;
 end;
end.

program task_1_3;
 
var i, j, n: integer;
    m: array [1..26, 1..26] of integer; //на экране больше не поместится
 
begin
  repeat //если не делать проверку n, то этого не нужно
    write('n = '); readln(n);
    if (n < 1) or (n > 26) then writeln('Error: n out of range 1..26') //и этого
  until (n >= 1) or (n <= 26); //и этого
  writeln('Result array:');
  for j := 1 to n do
    begin
      for i := 1 to n do
        begin
          m[i, j] := abs(i - j) + 1;
          write(m[i, j]:3)
        end;
      writeln
    end;
  readln
end.

program task_1_3;
 
var i, n: integer;
    m: array [1..26, 1..26] of integer; //на экране больше не поместится
 
begin
  repeat //если не делать проверку n, то этого не нужно
    write('n = '); readln(n);
    if (n < 1) or (n > 26) then writeln('Error: n out of range 1..26') //и этого
  until (n >= 1) or (n <= 26); //и этого
  writeln('Result array:');
  for i := 1 to n * n do
    begin
      m[i mod n + 1, i div n + 1] := abs((i - 1) div n - (i - 1) mod n) + 1;
      write(m[i mod n + 1, i div n + 1]:3);
      if i mod n = 0 then writeln
    end;
  readln
end.