Элементы матрицы определяются случайным случаем в диапазоне -10.10

uses crt;
 
const
  nmax = 5;
 
type
  matrix = array [1..nmax, 1..nmax] of integer;
 
procedure enter_matrix (var a : matrix; n : integer);
var
  i, j : integer;
begin
  Randomize;
  for i := 1 to n do 
    for j := 1 to n do
      a[i, j] := random(21) - 10;
end;
 
procedure print_matrix (a : matrix; n : integer);
var
  i, j : integer;
begin
  for i := 1 to n do
    begin
      for j := 1 to n do Write(A[i, j]:4);
      Writeln;
    end;
end;
 
procedure value (a : matrix; n : integer);
var
  i, j : integer;
  sum : real;
begin
  sum := 0;
  for i := 1 to n do
    sum := sum + a[i, i];
  Writeln('Сумма: ', sum:0:4);
end;
 
 
var
  a : matrix;
  n : integer;
  
begin
  ClrScr;
  Repeat
    Write('Размер матрицы: (не более ', nmax, ') = ');
    Readln(n);
  until n in [1..nmax];
  enter_matrix(a, n);
  print_matrix(a, n);
  value (a, n);
end.