заполнить случайный массив размером N x N (N amp;lt;10) по последующему

Паскаль

Var
  a: array[1..10, 1..10] of integer;
  i, j, n: integer;
  
begin
  write('Enter n: '); readln(n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if i lt;gt; j then
        a[i, j] := 0
      else if i lt;= N div 2 then
        a[i, j] := i
      else
        a[i, j] := n - i + 1;
      write(a[i, j], ' ');
    end;
    writeln();
  end;
end.