Случайным образом заполнить матрицу 7x7

const
  MatrixSize = 7;
 
type
  TMatrix = array [1..MatrixSize,1..MatrixSize] of real;
 
procedure CreateMatrix(var matrix: TMatrix);
var
  i,j: integer;
begin
  randomize;
  for i := 1 to MatrixSize do
    for j := 1 to MatrixSize do
      matrix[i][j] := random(10) + random(10)/10;
end;
 
procedure PrintMatrix(const matrix: TMatrix);
var
  i,j: integer;
begin
  writeln('Matrix[',MatrixSize,'x',MatrixSize,']:');
  for i := 1 to MatrixSize do begin
    for j := 1 to MatrixSize do
      write(matrix[i][j]:4:1,' ');
    writeln;
  end;
end;
 
function GetMaxValue(const matrix: TMatrix; row: integer): real;
var
  j: integer;
  max: real;
begin
  max := matrix[row][1];
  for j := 2 to MatrixSize do
    if (matrix[row][j] > max) then
      max := matrix[row][j];
  GetMaxValue := max;
end;
 
procedure ConvertMatrix(var matrix: TMatrix);
var
  i,j: integer;
  max: integer;
begin
  for i := 1 to MatrixSize do
    for j := 1 to MatrixSize do
      if (i = j) then
        matrix[i][j] := GetMaxValue(matrix,i);
end;
 
var
  matrix: TMatrix;
 
begin
  CreateMatrix(matrix);
  PrintMatrix(matrix);
  ConvertMatrix(matrix);
  PrintMatrix(matrix);
  readln;
end.