Недочеты в программе.

{Дана матрица a[nxn], написать программу, которая находит максимальную сумму
   элементов,стоящих на диагоналях параллельных главной}
Program lr1;
uses crt; const n =5;
var A: array [1..n,1..n] of integer; S1,S2:array [1..n]of integer;
i,j,sMax1,sMax2,MAX :integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
for j:=1 to n do  begin
A[i,j]:=random(6);write(a[i,j]:2,'');end;writeln;end;
  for i := 2 to N do begin
     s1[i] := 0;
    for j:=i to N do
      s1[i] := s1[i]+a[j-i+1,j];end;
      for i := 1 to N do write(s1[i]);
       for i := 2 to N do begin
       s2[i] := 0;
    for j:=i to N do
     s2[i] := s2[i]+a[j,j-i+1]; end;   for i := 1 to N do write(s2[i]);
        Smax1:=0;
     for i:=1 to n do
        if S1[i]>Smax1 then  begin
                  Smax1:=S1[i]; writeln('Smax1=',Smax1) ;end;
 
     Smax2:=0;
     for i:=1 to n do
        if S2[i]>Smax2 then begin
                  Smax2:=S2[i]; writeln('Smax2=',Smax2) ; end;
 
          if Smax1>Smax2 then max:= Smax1
          else max:= Smax2;
 
 
    writeln('max=',max) ;
end.

uses crt;
var a:array[1..20,1..20]of integer;
    n,i,j,c,sum,k,max,l,p:integer;
begin
clrscr;
write('Vvedite razmernost matricy n= ');
readln(n);
randomize;
Writeln('Matrica:');
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;
max:=a[n,n];
for l:=1 to 2*n-1 do{количество диагоналей, включая главную}
  begin
    sum:=0;
    if l<n then{ниже главной}
      begin
       for i:=n-l+1 to n do
       for j:=1 to l do
       if j=i-n+l then sum:=sum+a[i,j];
       writeln('Сумма ',l,'=',sum);
       if sum>max then max:=sum;
      end
    else if l>n then{выше главной}
      begin
       for i:=1 to 2*n-l do
       for j:=l-n+1 to n do
       if j=i+l-n then sum:=sum+a[i,j];
       writeln('Сумма ',l,'=',sum);
       if sum>max then max:=sum;
      end;
  end;
writeln('Max summa=',max);
readln
end.