Разместить на главной диагонали суммы элементов, которые лежат на диагоналях

uses crt;
const nmax=20;
var n,i,j,l,sum:integer;
    a:array[1..nmax,1..nmax]of integer;
begin
clrscr;
randomize;
repeat
write('Введите размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(9)+1;
    write(a[i,j]:3);
   end;
  writeln;
 end;
for l:=1 to 2*n-1 do{количество диагоналей}
if odd(l) then{если диагональ нечетная, она пересекается с главной}
  begin
    sum:=0;{считаем суммы}
    if l<=n then{выше диагонали и она}
    for i:=1 to l do
    sum:=sum+a[i,l-i+1]
    else if l>n then{ниже диагонали}
    for i:=l-n+1 to n do
    sum:=sum+a[i,l-i+1];
    a[l div 2+1,l div 2+1]:=sum;{пишем на главную, в пересечение}
 end;
writeln('Суммы диагоналей, перпендикулярных главной, вписаны на диагональ:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.