Найти максимум среди сумм элементов диагоналей, параллельных главной диагонали

uses crt;
var a:array[1..20,1..20]of integer;
    n,i,j,c,sum,k,l,p,mx:integer;
begin
textcolor(15);
clrscr;
write('Размер матрицы до 20 n= ');
readln(n);
randomize;
Writeln('Матрица:');
for i:=1 to n do
   begin
     for j:=1 to n  do
       begin
        a[i,j]:=random(10);
        write(a[i,j]:4);
       end;
     writeln;
   end;
mx:=a[n,1];
for l:=1 to 2*n-1 do
  begin
    sum:=0;
    if l<=n then{если сама главная не нужна, то  l<n}
      begin
       for i:=n-l+1 to n do
       sum:=sum+a[i,i-n+l];
       writeln('Сумма ',l,'=',sum);
       if sum>mx then mx:=sum;
       end
    else if l>n then
      begin
       for i:=1 to 2*n-l do
       sum:=sum+a[i,i+l-n];
       writeln('Сумма ',l,'=',sum);
       if sum>mx then mx:=sum;
      end;
  end;
writeln;
write('Максимальная сумма=',mx);
readln
end.