Создать массив nxn и заполните его по правилу - Turbo Pascal

Формулировка задачи:

Дано число n, n <= 100 . Создайте массив n×n и заполните его по следующему правилу: - числа на диагонали, идущей из правого верхнего в левый нижний угол, равны 1; - числа, стоящие выше этой диагонали, равны 0; - числа, стоящие ниже этой диагонали, равны 2.

Решение задачи: «Создать массив nxn и заполните его по правилу»

Листинг программы

program project1;
 
var
  n, i, j: integer;
  Matrix: array of array of integer;
 
begin
  writeln('enter n<=100');
  readln(n);
  SetLength(Matrix, n);
  for i:=0 to n-1 do
    SetLength(Matrix[i], n);
  for i:=0 to n-1 do
    Matrix[i][n-i-1]:=1;
  for i:=0 to n-1 do
    for j:=0 to n-1 do
      begin
        if (i<n-j-1) then
          Matrix[i][j]:=0;
        if (i>n-j-1) then
          Matrix[i][j]:=2;
      end;
 
  for i:=0 to n-1 do
    begin
      for j:=0 to n-1 do
        write(Matrix[i][j]);
      writeln();
    end;
  readln();
end.

Объяснение кода листинга программы

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

Запрашивает у пользователя значение переменной n, которое должно быть меньше или равно 100.
Выделяет массив Matrix размером n x n.
Заполняет каждый элемент массива Matrix значениями 1, 0 и 2 в соответствии с правилом, описанным в задаче.
Выводит на экран каждый элемент массива Matrix.
Ждет ввода от пользователя.