Преобразовать исходную матрицу в новую по формуле

const m=17;
type mas=array[1..m,1..m] of real;
var a:mas;
    n:integer;
procedure vv_preobr(var x:mas;f,z:boolean);
var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if f then x[i,j]:=-random*5+random(16);
     if z then x[i,j]:=x[i,j]+3.5
          else x[i,j]:=x[i,j]-3.5;
     write(x[i,j]:7:2)
    end;
   writeln
  end
end;
function sum_gl(x:mas):real;
var i:integer;
    s:real;
begin
 s:=0;
 for i:=1 to n do s:=s+x[i,i];
 sum_gl:=s
end;
begin
 randomize;
 repeat
  writeln('n=?, n<=17');
  readln(n)
 until (n>1)and(n<=17);
 writeln('A:');
 vv_preobr(a,true,false);
 writeln('summa = ',sum_gl(a):0:2);
 writeln('A'':');
 vv_preobr(a,false,sum_gl(a)>10);
 readln
end.

const
  m = 17;
 
type
  mas = array[1..m, 1..m] of real;
 
var
  n: integer;
  S: real;
 
procedure vv_preobr(var x: mas; f: boolean);
var
  i, j: integer;
begin
  if f then S := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
      if f then //Формируем массив и вычисляем сумму
      begin
        x[i, j] := -random * 5 + random(16);
        write(x[i, j]:7:2);
        if i = j then S := S + x[i, j]
      end
      else //Преобразовываем массив
        begin
          if S > 10 then x[i, j] := x[i, j] + 3.5
          else x[i, j] := x[i, j] - 3.5;
          write(x[i, j]:7:2)
        end;
    writeln
  end
end;
 
var
  a: mas;
 
begin
  randomize;
  repeat
    writeln('n=?, n<=17');
    readln(n)
  until (n > 1) and (n <= 17);
  writeln('A:');
  vv_preobr(a, true);
  writeln('summa = ', S:0:3);
  writeln('A'':');
  vv_preobr(a, false);
  readln
end.