Матрица

uses Crt;
const N = 5; M = 5;
Var A: array[1..N, 1..M] of integer;
            i, j: integer;
begin
for i:=1 to n do begin
  for j:=1 to m do begin
    a[i,j]:=(i-1)*n+j;
    Write(a[i,j]:3); { вывели исходную строку }
  end;
  a[i,i]:=Random(40);  { получили новую строку }
  Write('':3); { визуально отделим второй массив }
  for j:=1 to m do Write(a[i,j]:3); { вывели новую строку }
  WriteLn;
end;
    end.

begin
  var a := new integer[ReadInteger, ReadInteger];
  for var i := 0 to a.RowCount - 1 do
  begin
    for var j := 0 to a.ColCount - 1 do
    begin
      a[i, j] := (i - 1) * a.ColCount - 1 + j;
      Write(a[i, j]:3); { вывели исходную строку }
    end;
    a[i, i] := Random(40); { получили новую строку }
    Write('':3); { визуально отделим второй массив }
    for var j := 0 to a.ColCount - 1 do Write(a[i, j]:3); { вывели новую строку }
    WriteLn;
  end;
end.

{$reference NETSquirrel.dll}
 
uses NETSquirrel;
uses NETSquirrel.Utils;
uses System;
 
begin
  var r := new Random();
  MatricesUtils.GenerateMatrix&<integer>(BaseTypesUtils.ReadInt('Rows:'), BaseTypesUtils.ReadInt('Columns:'),
    (matrix, i, j) -> (i - 1) * matrix.GetLength(1) - 1 + j).PrintAsMatrix&<integer>()
    .PrintEmptyLine()
    .SelectedAsMatrix((x, i, j) -> i = j ? r.Next(41) : x).PrintAsMatrix&<integer>();
end.