Разработать процедуру вычисления суммы элементов побочной диагонали и поставить эту сумму на место максимально

uses crt;
const nmax=20;
var x:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
    jmax,imax,max,sm:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
sm:=0;
max:=x[1,1];
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     x[i,j]:=random(20);
     write(x[i,j]:4);
     if j=n-i+1 then
       begin
         sm:=sm+x[i,j];
         if x[i,j]>max then
         begin
           imax:=i;
           jmax:=j;
           max:=x[i,j];
         end;
       end;
    end;
   writeln;
 end;
writeln;
writeln('Сумма элементов побочной диагонали=',sm);
writeln('Максимум элементов побочной диагонали=',max);
x[imax,jmax]:=sm;
readln
end.

x[imax,jmax]:=sm;

uses
  crt;
const
  nmax=20;
type
  matr=array[1..nmax,1..nmax] of integer;
var
  x:matr;
  n,i,j:byte;
  jm,im,mx,sum:integer;
 
procedure SumOfSideDiagonal(a:matr; var sm:integer);
var
  i,j:byte;
begin
  sm:=0;
  for i:=1 to n do
    for j:=1 to n do
      if j=n-i+1 then
        sm:=sm+a[i,j];
end;
 
procedure MaxOfSideDiagonal(a:matr; var max,imax,jmax:integer);
var
  i,j:byte;
begin
  max:=a[1,1];
  for i:=1 to n do
    for j:=1 to n do
      if j=n-i+1 then
        if a[i,j]>max then
          begin
            imax:=i;
            jmax:=j;
            max:=a[i,j];
          end;
end;
 
begin
  clrscr;
  randomize;
  repeat
    write('Размер матрицы=');
    readln(n);
  until n in [1..nmax];
  writeln('Исходная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          x[i,j]:=random(20);
          write(x[i,j]:4);
       end;
   writeln;
 end;
  writeln;
  SumOfSideDiagonal(x,sum);
  writeln('Сумма элементов побочной диагонали: ',sum);
  MaxOfSideDiagonal(x,mx,im,jm);
  writeln('Максимум элементов побочной диагонали: ',mx);
  x[im,jm]:=sum;
  writeln('Преобразованная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(x[i,j]:4);
      writeln;
    end;
  readln;
end.