В массиве целого типа отсортировать главную диагональ, вычислить ее сумму

const
  n=10;
type
  matr=array[1..n,1..n] of integer;
var
  a:matr;
  row1,row2: integer;
 
procedure CreateMatrix(var x:matr);
var
  i,j: integer;
begin
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          x[i,j]:=Integer(random(n*n)) - n*n div 2;
          write(x[i,j]:4);
        end;
    writeln;
  end;
end;
 
procedure sort(var x:matr);
var
  i,j,t: integer;
begin
  // сортировка
  for i:=2 to n do
    for j:=n downto i do
    begin
      if x[j,j]<x[j-1,j-1] then   // главной
      begin
        t:=x[j,j];
        x[j,j]:=x[j-1,j-1];
        x[j-1,j-1]:=t;
      end;
    end;
end;
 
procedure OutputMatrix(x:matr);
var
  i,j: integer;
begin
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(x[i,j]:4);
      writeln;
    end;
end;
 
function sumdiag(x:matr):Longint;
var
  sum:longint;
  i:integer;
begin
  sum:=0;
  for i:=1 to n do
    sum:=sum+x[i,i];
  sumdiag:=sum;
end;
 
procedure ChangeRow(var x:matr; n1,n2:integer);
var
  i,t:integer;
begin
  for i:=1 to n do
    begin
      t:=x[n1,i];
      x[n1,i]:=x[n2,i];
      x[n2,i]:=t;
    end;
end;
 
begin
  randomize;
  writeln('Исходный массив:');
  CreateMatrix(a);
  sort(a);
  writeln('Отсортированный массив:');
  OutPutMatrix(a);
  writeln('Сумма = ',sumdiag(a));
  write('Введите номера строк, которые необходимо поменять: ');
  readln(row1,row2);
  ChangeRow(a,row1,row2);
  writeln('Полученный массив:');
  OutPutMatrix(a);
  readln;
end.