Получить квадратную матрицу по правилу - Pascal ABC (16808)

const m = 10;
var a: array [1..m] of integer;
    b: array [1..m, 1..m] of integer;
    i, j, n: integer;
begin
  repeat
    write('n = ');
    readln(n);
    if (n < 1) or (n > m) then writeln('n out of range 1..', m, ', reenter.')
  until (n >= 1) and (n <= m);
  writeln('Enter numbers:');
  for i := 1 to n do
    begin
      write(i:2, ': ');
      readln(a[i])
    end;
  writeln('Result:');
  for j := 1 to n do
    begin
      for i := 1 to n do
        begin
          b[i, j] := a[(i + j - 2) mod n + 1];
          write(b[i, j]:8)
        end;
      writeln
    end;
  readln
end.