Матрица: Сформировать квадратную матрицу порядка n

program matrix;
type 
   newtype=integer; //нужный тип элементов матрицы
   mass=array[1..100,1..100] of newtype; //двумерный массив
var 
   i,j,n:integer;
   m:mass;
begin
write('Введите n: ');
readln(n);
 
{Цикл ввода матрицы}
for i:=1 to n do
 for j:=1 to n do
  begin
  write('M[',i,',',j,']=');
  readln(m[i,j]);
  end;
 
writeln;
  
{Цикл вывода матрицы}
for i:=1 to n do
begin
 for j:=1 to n do
  begin
  write(m[i,j],' '); //Вывод строки
  end;
 writeln; //Переход на слудующую строку
end;  
end.

    uses crt;
    var i,j,n:integer;
        a:array[1..10,1..10] of integer;
begin
    n:=10;
 
    for i:=1 to n do
    begin
        for j:=1 to n do
        begin
            a[i][j]:=((i+j-2) mod n) +1;
            Write(a[i][j]:2,' ');
        end;
        WriteLn;
    end;
end.

a[i][j]:=abs(j-i) +1;